www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/Visual.asp
<!--#include file="conn.asp"-->
<!--#include file="config.asp" -->
<!--#include file="const.asp" -->
<!--#include file="char.asp" -->
<!--#include file="Visual_const.asp"-->
<%
'=========================================================
' File: visual.asp
' Version:3.0
' Date: 2005-10-29
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 920520.com All rights reserved.
' Web: http://www.920520.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579 Msn：zdlmicr@hotmail.com
'=========================================================
response.buffer=true
dim shopid,curpage,sex,rsvisual,sqlvisual,CurType,CurSubType
dim isHas
dim myLayerStr,myvisualsplit
dim PhotoPrice1,PhotoPrice2,PhotoPeriod,PhotoStatus,PhotoUserCount,PriceMin,AccoutermentType
if not founduser then
Errmsg=Errmsg+"<br>"+"<li>您还没有<a href=login.asp>登陆</a>，不能使用个人形象设计功能。如果您还没有<a href=reg.asp>注册</a>，请先<a href=reg.asp>注册</a>！"
Founderr=true
end if
myvisualsplit=split(v_myvisual,"|")
myLayerStr=GetLayerStr(myvisualsplit)
shopid=checkstr(request("shopid"))
if not isnumeric(shopid) or isnull(shopid) or shopid="" then
shopid=198
elseif shopid<1 then
shopid=198
end if
CurType=shopid mod 100
CurSubType=shopid \ 100
sex=checkstr(request("sex"))
if isnull(sex) then sex=""
curPage=request("page")
if curpage="" or not isInteger(curpage) then
curpage=1
else
curpage=clng(curpage)
end if
Stats="个人形象设计"
call nav()
if founderr=true then
call head_var("","")
call Mslove_error()
else
call main()
if founderr=true then call Mslove_error()
end if
call activeonline()
call Footer()
sub main()
dim minsubtype,totalrec,pagecount,curcount
dim TypeCount,TypeName,SubTypeName,arraystr,lastseq
dim SearchMsg
set rsvisual=server.createobject("ADODB.Recordset")
sqlvisual="select top 1 photoprice1,photoprice2,photoperiod,photostatus,photousercount,PriceMin,Accouterment from visual_config"
rsvisual.open sqlvisual,conn,1,1
if not (rsvisual.eof or rsvisual.bof) then
PhotoPrice1=rsvisual(0)
PhotoPrice2=rsvisual(1)
PhotoPeriod=rsvisual(2)
PhotoStatus=rsvisual(3)
PhotoUserCount=rsvisual(4)
PriceMin=rsvisual(5)
AccoutermentType=rsvisual(6)
else
PhotoPrice1=20
PhotoPrice2=10
PhotoPeriod=5
PhotoStatus=1
PhotoUserCount=5
PriceMin=5
end if
rsvisual.close
TypeName=""
SubTypeName=""
response.write "<table cellpadding=2 cellspacing=1 align=center class=tableborder1>"
response.write "<tr height=25>"
response.write "<th valign=middle id=tabletitlelink>"
if CurType=0 then
response.write "<font style='font-size:12px' >"
TypeName="我的储物柜"
else
response.write "<a href=?shopid=100&sex="&sex&"&page=1>"
end if
response.write "我的储物柜"
if CurType=0 then
response.write "</font>"
else
response.write "</a>"
end if
response.write "</th>"
response.write "<th valign=middle id=tabletitlelink>"
if CurType=99 then
response.write "<font style='font-size:12px' >"
TypeName="推荐商品"
else
response.write "<a href=?shopid=199&sex="&sex&"&page=1>"
end if
response.write "推荐商品"
if CurType=99 then
response.write "</font>"
else
response.write "</a>"
end if
response.write "</th>"
sqlvisual="select seqno,typename from visual_type where visible order by orders"
rsvisual.open sqlvisual,conn,1,1
TypeCount=0
set rs=server.createobject("adodb.recordset")
do while not rsvisual.eof
sqlvisual="select top 1 seqno from visual_subtype where typeseq="&rsvisual("seqno")&" and visible order by orders"
rs.open sqlvisual,conn,1,1
if not rs.eof then
response.write "<th valign=middle id=tabletitlelink>"
if CurType=rsvisual("seqno") then
response.write "<font style='font-size:12px' >"
TypeName=rsvisual("TypeName")
else
minsubtype=rs(0)
response.write "<a href=?shopid="&minsubtype&"0"&rsvisual("seqno")&"&sex="&sex&"&page=1>"
end if
response.write rsvisual("TypeName")
if CurType=rsvisual("seqno") then
response.write "</font>"
else
response.write "</a>"
end if
response.write "</th>"
TypeCount=TypeCount+1
end if
rs.close
rsvisual.movenext
loop
set rs=nothing
rsvisual.close
response.write "<th valign=middle id=tabletitlelink>"
if CurType=96 then
response.write "<font style='font-size:12px' >"
TypeName="二手市场"
else
response.write "<a href=?shopid=196&sex="&sex&"&page=1>"
end if
response.write "二手市场"
if CurType=96 then
response.write "</font>"
else
response.write "</a>"
end if
response.write "</th>"
response.write "<th valign=middle id=tabletitlelink>"
if CurType=97 then
response.write "<font style='font-size:12px' >"
TypeName="照相馆"
else
response.write "<a href=?shopid=197>"
end if
response.write "照相馆"
if CurType=97 then
response.write "</font>"
else
response.write "</a>"
end if
response.write "</th>"
response.write "<th valign=middle id=tabletitlelink><a href=Visual_top.asp>形象大赛</a></th>"
response.write "</tr>"
if CurType=95 then response.write "<form method=post action=?shopid=195&search_str="&request("search_str")&"&selgender="&request("selgender")&"&selprice_l="&request("selprice_l")&"&selprice_h="&request("selprice_h")&"&selperiod_l="&request("selperiod_l")&"&selperiod_h="&request("selperiod_h")&"&selflag="&request("selflag")&">"
response.write "<tr height=25>"
response.write "<td align=center valign=middle colspan="&(TypeCount+5)&" class=tablebody1>"
if CurType=0 then
if CurSubType=1 then
response.write "【<font style='font-size:12px' >"
SubTypeName="我的衣橱"
else
response.write "〖<a href=?shopid=100&page=1>"
end if
response.write "我的衣橱"
if CurSubType=1 then
response.write "</font>】"
else
response.write "</a>〗"
end if
response.write " "
if CurSubType=2 then
response.write "【<font style='font-size:12px' >"
SubTypeName="我的化妆包"
else
response.write "〖<a href=?shopid=200&page=1>"
end if
response.write "我的化妆包"
if CurSubType=2 then
response.write "</font>】"
else
response.write "</a>〗"
end if
response.write " "
if CurSubType=3 then
response.write "【<font style='font-size:12px' >"
SubTypeName="我的首饰盒"
else
response.write "〖<a href=?shopid=300&page=1>"
end if
response.write "我的首饰盒"
if CurSubType=3 then
response.write "</font>】"
else
response.write "</a>〗"
end if
response.write " "
if CurSubType=4 then
response.write "【<font style='font-size:12px' >"
SubTypeName="我的杂物箱"
else
response.write "〖<a href=?shopid=400&page=1>"
end if
response.write "我的杂物箱"
if CurSubType=4 then
response.write "</font>】"
else
response.write "</a>〗"
end if
response.write " "
if CurSubType=5 then
response.write "【<font style='font-size:12px' >"
SubTypeName="我的货架"
else
response.write "〖<a href=?shopid=500&page=1>"
end if
response.write "我的货架"
if CurSubType=5 then
response.write "</font>】"
else
response.write "</a>〗"
end if
response.write " "
if CurSubType=6 then
response.write "【<font style='font-size:12px' >"
SubTypeName="我的破衣篓"
else
response.write "〖<a href=?shopid=600&page=1>"
end if
response.write "我的破衣篓"
if CurSubType=6 then
response.write "</font>】"
else
response.write "</a>〗"
end if
elseif CurType=99 then
if CurSubType=1 then
response.write "【<font style='font-size:12px' >"
SubTypeName="最新上架"
else
response.write "〖<a href=?shopid=199&sex="&sex&"&page=1>"
end if
response.write "最新上架"
if CurSubType=1 then
response.write "</font>】"
else
response.write "</a>〗"
end if
response.write " "
if CurSubType=2 then
response.write "【<font style='font-size:12px' >"
SubTypeName="热销商品"
else
response.write "〖<a href=?shopid=299&sex="&sex&"&page=1>"
end if
response.write "热销商品"
if CurSubType=2 then
response.write "</font>】"
else
response.write "</a>〗"
end if
response.write " "
if CurSubType=3 then
response.write "【<font style='font-size:12px' >"
SubTypeName="VIP专卖"
else
response.write "〖<a href=?shopid=399&sex="&sex&"&page=1>"
end if
response.write "VIP专卖"
if CurSubType=3 then
response.write "</font>】"
else
response.write "</a>〗"
end if
response.write " "
if CurSubType=4 then
response.write "【<font style='font-size:12px' >"
SubTypeName="特价商品"
else
response.write "〖<a href=?shopid=499&sex="&sex&"&page=1>"
end if
response.write "特价商品"
if CurSubType=4 then
response.write "</font>】"
else
response.write "</a>〗"
end if
elseif CurType=96 then
response.write " "
if CurSubType=1 then
response.write "【<font style='font-size:12px' >"
SubTypeName="服装类"
else
response.write "〖<a href=?shopid=196&sex="&sex&"&page=1>"
end if
response.write "服装类"
if CurSubType=1 then
response.write "</font>】"
else
response.write "</a>〗"
end if
response.write " "
if CurSubType=2 then
response.write "【<font style='font-size:12px' >"
SubTypeName="化妆类"
else
response.write "〖<a href=?shopid=296&sex="&sex&"&page=1>"
end if
response.write "化妆类"
if CurSubType=2 then
response.write "</font>】"
else
response.write "</a>〗"
end if
response.write " "
if CurSubType=3 then
response.write "【<font style='font-size:12px' >"
SubTypeName="首饰类"
else
response.write "〖<a href=?shopid=396&sex="&sex&"&page=1>"
end if
response.write "首饰类"
if CurSubType=3 then
response.write "</font>】"
else
response.write "</a>〗"
end if
response.write " "
if CurSubType=4 then
response.write "【<font style='font-size:12px' >"
SubTypeName="杂物类"
else
response.write "〖<a href=?shopid=496&sex="&sex&"&page=1>"
end if
response.write "杂物类"
if CurSubType=4 then
response.write "</font>】"
else
response.write "</a>〗"
end if
elseif CurType=97 then
response.write " "
if CurSubType=1 then
response.write "【<font style='font-size:12px' >"
SubTypeName="发送新请求"
else
response.write "〖<a href=?shopid=197>"
end if
response.write "发送新请求"
if CurSubType=1 then
response.write "</font>】"
else
response.write "</a>〗"
end if
response.write " "
if CurSubType=2 then
response.write "【<font style='font-size:12px' >"
SubTypeName="发出的请求"
else
response.write "〖<a href=?shopid=297>"
end if
response.write "发出的请求"
if CurSubType=2 then
response.write "</font>】"
else
response.write "</a>〗"
end if
response.write " "
if CurSubType=3 then
response.write "【<font style='font-size:12px' >"
SubTypeName="收到的请求"
else
response.write "〖<a href=?shopid=397>"
end if
response.write "收到的请求"
if CurSubType=3 then
response.write "</font>】"
else
response.write "</a>〗"
end if
response.write " "
if CurSubType=4 then
response.write "【<font style='font-size:12px' >"
SubTypeName="确认的请求"
else
response.write "〖<a href=?shopid=497>"
end if
response.write "确认的请求"
if CurSubType=4 then
response.write "</font>】"
else
response.write "</a>〗"
end if
response.write " "
if CurSubType=5 then
response.write "【<font style='font-size:12px' >"
SubTypeName="我的虚拟相簿"
else
response.write "〖<a href=?shopid=597>"
end if
response.write "我的虚拟相簿"
if CurSubType=5 then
response.write "</font>】"
else
response.write "</a>〗"
end if
response.write " "
if CurSubType=6 then
response.write "【<font style='font-size:12px' >"
SubTypeName="大家的虚拟相簿"
else
response.write "〖<a href=?shopid=697>"
end if
response.write "大家的虚拟相簿"
if CurSubType=6 then
response.write "</font>】"
else
response.write "</a>〗"
end if
elseif CurType=98 then
response.write " "
if CurSubType=1 then
response.write "【<font style='font-size:12px' >"
SubTypeName="综述"
else
response.write "〖<a href=?shopid=198&sex="&sex&"&page=1>"
end if
response.write "综述"
if CurSubType=1 then
response.write "</font>】"
else
response.write "</a>〗"
end if
response.write " "
if CurSubType=2 then
response.write "【<font style='font-size:12px' >"
SubTypeName="个人商品"
else
response.write "〖<a href=?shopid=298&sex="&sex&"&page=1>"
end if
response.write "个人商品"
if CurSubType=2 then
response.write "</font>】"
else
response.write "</a>〗"
end if
response.write " "
if CurSubType=3 then
response.write "【<font style='font-size:12px' >"
SubTypeName="社区商店"
else
response.write "〖<a href=?shopid=398&sex="&sex&"&page=1>"
end if
response.write "社区商店"
if CurSubType=3 then
response.write "</font>】"
else
response.write "</a>〗"
end if
response.write " "
if CurSubType=4 then
response.write "【<font style='font-size:12px' >"
SubTypeName="二手市场"
else
response.write "〖<a href=?shopid=498&sex="&sex&"&page=1>"
end if
response.write "二手市场"
if CurSubType=4 then
response.write "</font>】"
else
response.write "</a>〗"
end if
response.write " "
if CurSubType=5 then
response.write "【<font style='font-size:12px' >"
SubTypeName="照相馆"
else
response.write "〖<a href=?shopid=598&sex="&sex&"&page=1>"
end if
response.write "照相馆"
if CurSubType=5 then
response.write "</font>】"
else
response.write "</a>〗"
end if
elseif CurType=95 then
response.write "排序对象："
response.write "<input type=radio name=sortobj value=""id"""
if isnull(request("sortobj")) or request("sortobj")="" then
response.write " checked"
else
if not request("sortobj")<>"id" or (request("sortobj")<>"dateandtime" and request("sortobj")<>"price1" and request("sortobj")<>"price2" and request("sortobj")<>"period" and request("sortobj")<>"flag") then response.write " checked"
end if
response.write ">商品编码 "
response.write "<input type=radio name=sortobj value=""dateandtime"""
if not request("sortobj")<>"dateandtime" then response.write " checked"
response.write ">到货时间 "
response.write "<input type=radio name=sortobj value=""price1"""
if not request("sortobj")<>"price1" then response.write " checked"
response.write ">标价 "
response.write "<input type=radio name=sortobj value=""price2"""
if not request("sortobj")<>"price2" then response.write " checked"
response.write ">VIP价 "
response.write "<input type=radio name=sortobj value=""period"""
if not request("sortobj")<>"period" then response.write " checked"
response.write ">有效期 "
response.write "<input type=radio name=sortobj value=""flag"""
if not request("sortobj")<>"flag" then response.write " checked"
response.write ">限购者 "
response.write "排序方式："
response.write "<input type=radio name=sorttype value=""asc"""
if not request("sorttype")<>"asc" then response.write " checked"
response.write ">升序 "
response.write "<input type=radio name=sorttype value=""desc"""
if isnull(request("sorttype")) or request("sorttype")="" then
response.write " checked"
else
if not request("sorttype")<>"desc" or request("sorttype")<>"asc" then response.write " checked"
end if
response.write ">降序 "
response.write "<input type=""submit"" name=""submit"" value=""排序"">"
else
sqlvisual="select seqno,subtypename from visual_subtype where typeseq="&CurType&" and visible order by orders"
rsvisual.open sqlvisual,conn,1,1
do while not rsvisual.eof
if CurSubType=rsvisual("seqno") then
response.write "【<font style='font-size:12px' >"
SubTypeName=rsvisual("subtypename")
else
response.write "〖<a href=?shopid="&rsvisual("seqno")&right("00"&CurType,2)&"&sex="&sex&"&page=1>"
end if
response.write rsvisual("subtypename")
if CurSubType=rsvisual("seqno") then
response.write "</font>】"
else
response.write "</a>〗"
end if
rsvisual.movenext
if not rsvisual.eof then response.write " "
loop
rsvisual.close
end if
response.write "</td>"
response.write "</tr>"
if CurType=95 then response.write "</form>"
response.write "</table>"
response.write "<br>"
if CurType<>0 and CurType<>96 and CurType<>97 and CurType<>98 then
response.write "<table cellpadding=2 cellspacing=1 align=center class=tableborder1>"
response.write "<tr height=25>"
response.write "<th valign=middle id=tabletitlelink>搜索形象商品</th>"
response.write "</tr>"
response.write "<form method=post action=?shopid=195>"
response.write "<tr height=30>"
response.write "<td align=center valign=middle width=100% class=tablebody1>"
response.write "商品名称：<input type=""text"" name=""search_str"" size=""10"" maxlength=""20""> "
response.write "<select name=""selgender""><option value=0 selected>性别不限</option><option value=1>男</option><option value=2>女</option><option value=3>男女适宜</option></select> "
response.write "<input type=""text"" name=""selPrice_L"" size=""5"" maxlength=""5"">≤价格≤<input type=""text"" name=""selPrice_H"" size=""5"" maxlength=""5""> "
response.write "<input type=""text"" name=""selPeriod_L"" size=""5"" maxlength=""5"">≤有效期≤<input type=""text"" name=""selPeriod_H"" size=""5"" maxlength=""5""> "
response.write "<select name=""selflag""><option value=0 selected>限购者不限</option><option value=1>所有会员</option><option value=2>版主以上</option><option value=3>超级版主</option><option value=4>管理员</option></select> "
response.write "<input type=""submit"" name=""submit"" value=""开始搜索"">"
response.write "</td>"
response.write "</tr>"
response.write "</form>"
response.write "</table>"
response.write "<br>"
end if
response.write "<a name=visualtop>"
response.write "<table cellpadding=2 cellspacing=1 align=center class=tableborder1>"
response.write "<tr height=25>"
if CurType=96 then
response.write "<th valign=middle id=tabletitlelink colspan=2><marquee scrolldelay=100 scrollamount=2>二手商店专门经营旧货，价格便宜，但是服务差劲，所有商品<font style='font-size:12px' >不能试穿</font>，请您购买时小心哟! </marquee></th>"
elseif CurType=97 then
response.write "<th valign=middle id=tabletitlelink colspan=2><marquee scrolldelay=100 scrollamount=2>在照相馆照相，无须改变您日常使用的形象，只要装备好需要的商品，不用保存即可合影或写真! </marquee></th>"
elseif CurType=98 then
response.write "<th valign=middle id=tabletitlelink colspan=2>"&webname&" -- 形象设计系统</th>"
else
response.write "<th valign=middle id=tabletitlelink colspan=2><marquee scrolldelay=100 scrollamount=2>点击图片即可试穿和脱下，试穿后记得“<font style='font-size:12px' >保存</font>”哟! </marquee></th>"
end if
response.write "</tr>"
response.write "<tr>"
response.write "<td align=center valign=middle class=tablebody2 width=160>"
response.write "<table border=0 cellspacing=1 cellpadding=0 width=140>"
response.write "<tr>"
response.write "<script language=JavaScript>"
response.write "var cookieSrc=document.cookie;"
response.write "</script>"
response.write "<td colspan=2 class=tablebody1 width=120 height=150 id=visualshow ImagePath="""&PicPath&""" enableLayers="""&myLayerStr&""" usergender="""&v_mysex&""" baseName=""images/img_visual/blank.gif"" "
for i=0 to ubound(myvisualsplit)
if not isnull(myvisualsplit(i)) and trim(myvisualsplit(i))<>"" then
response.write "layer"&(i+1)&"="&myvisualsplit(i)&" "
end if
next
response.write "style=behavior:url(inc/NF_show.htc) cookies=cookieSrc setCookies=""document.cookie=this.cookies"" userid="&userid&" localpic="&LocalPic&">"
response.write "<table width=100% border=0 cellspacing=0 cellpadding=0>"
if CurType<>97 then
response.write "<tr>"
response.write "<td class=TableBody2 height=27 align=center><a href=Visual_save.asp>保存</a> <a href=javascript:initshow()>清除</a> <a href=javascript:deleteshow()>恢复</a></td>"
response.write "</tr>"
else
response.write "<tr>"
response.write "<td class=TableBody2 height=27 align=center><font color=gray>保存</font> <a href=javascript:initshow()>清除</a> <a href=javascript:deleteshow()>恢复</a></td>"
response.write "</tr>"
end if
response.write "<tr>"
response.write "<td class=TableBody2 height=27 align=center><a href=?shopid=197>合影</a> <a href=Visual_photo.asp?action=photome onclick=""if(confirm('个人写真的费用是"
if isnull(v_myvip) or v_myvip<=1 then
response.write PhotoPrice1
else
response.write PhotoPrice2
end if
response.write "元，您现在有现金"&mymoney&"元，是否确认拍照?')){return true;} return false;"">写真</a> <font color=gray title=下个版本提供此功能>参赛</font></td>"
response.write "</tr>"
response.write "</table>"
response.write "<table name=takeonrecord align=center width=140 cellpadding=0 cellspacing=0>"
response.write "<tr>"
response.write "<td width=70 align=center><img style=cursor:hand height=70 name=""IMG"" src=""images/img_visual/blank.gif"" width=70 border=0 itemgender="&v_mysex&"></td>"
response.write "<td width=70 align=center><img style=cursor:hand height=70 name=""IMG"" src=""images/img_visual/blank.gif"" width=70 border=0 itemgender="&v_mysex&"></td>"
response.write "</tr>"
response.write "</table>"
response.write "<table width=140 border=0 cellspacing=0 cellpadding=0>"
response.write "<tr height=25>"
response.write "<td width=80 class=tablebody2> [试穿记录]</td>"
response.write "<td name=btnMoveLeft width=30 valign=middle align=center class=tablebody2><img src=""images/img_visual/left.gif"" style=""CURSOR: hand; display:none""></td>"
response.write "<td name=btnMoveRight width=30 valign=middle align=center class=tablebody2><img src=""images/img_visual/right.gif"" style=""CURSOR: hand; display:none""></td>"
response.write "</tr>"
response.write "</table>"
response.write "</td>"
response.write "</tr>"
response.write "<script language=javascript>"
response.write "function deleteshow(){"
response.write "document.cookie = ""myshow_"&userid&"="" + escape("""") + ""; path="&cookiepath&""";"
response.write "location.reload();"
response.write "}"
response.write "function initshow(){"
if v_mysex=1 then
response.write "document.cookie = ""myshow_"&userid&"="" + escape('"&DefaultVisualBoy&"') + ""; path="&cookiepath&""";"
else
response.write "document.cookie = ""myshow_"&userid&"="" + escape('"&DefaultVisualGirl&"') + ""; path="&cookiepath&""";"
end if
response.write "location.reload();"
response.write "}"
response.write "</script>"
response.write "<tr height=35 valign=middle>"
response.write "<td colspan=2 class=tablebody2 align=center><input type=button style=""cursor:hand;"" onclick=""JavaScript:openScript('Visual_cartbag.asp',500,440)"" value=查看购物袋></td>"
response.write "</tr>"
response.write "<tr height=25 valign=middle>"
response.write "<td width=50% align=right class=tablebody1>性别： </td>"
response.write "<td align=left class=tablebody1> "
if v_mysex=0 then
response.write "女"
else
response.write "男"
end if
response.write "</td>"
response.write "</tr>"
response.write "<tr height=25 valign=middle>"
response.write "<td width=50% align=right class=tablebody1>属性： </td>"
response.write "<td align=left class=tablebody1> "
if v_myvip<=1 then
response.write "普通会员"
else
response.write "<font style='font-size:12px' ><b>VIP 会员</b></font>"
end if
response.write "</td>"
response.write "</tr>"
response.write "<tr height=25 valign=middle>"
response.write "<td width=50% align=right class=tablebody1>等级： </td>"
response.write "<td align=left class=tablebody1> "
if master then
response.write "管理员"
elseif supermaster then
response.write "超级版主"
elseif standmaster then
response.write "版主"
else
response.write "普通会员"
end if
response.write "</td>"
response.write "</tr>"
response.write "<tr height=25 valign=middle>"
response.write "<td width=50% align=right class=tablebody1>现金： </td>"
response.write "<td align=left class=tablebody1> "&mymoney&"</td>"
response.write "</tr>"
response.write "<tr height=25 valign=middle>"
response.write "<td colspan=2 class=tablebody1 align=center><font style=""cursor:hand"" onclick=""JavaScript:openScript('Visual_record.asp?menu=buy',500,400)"" color=blue>查看购买记录</font></td>"
response.write "</tr>"
response.write "<tr height=25 valign=middle>"
response.write "<td colspan=2 class=tablebody1 align=center><font style=""cursor:hand"" onclick=""JavaScript:openScript('Visual_record.asp?menu=send',500,400)"" color=blue>查看赠送记录</font></td>"
response.write "</tr>"
response.write "<tr height=25 valign=middle>"
response.write "<td colspan=2 class=tablebody1 align=center><font style=""cursor:hand"" onclick=""JavaScript:openScript('Visual_record.asp?menu=recv',500,400)"" color=blue>查看受赠记录</font></td>"
response.write "</tr>"
response.write "<tr height=25 valign=middle>"
response.write "<td colspan=2 class=tablebody1 align=center><font style=""cursor:hand"" onclick=""JavaScript:openScript('Visual_record.asp?menu=sale',500,400)"" color=blue>查看出售记录</font></td>"
response.write "</tr>"
response.write "<tr height=25 valign=middle>"
response.write "<td colspan=2 class=tablebody1 align=center><a href="&scriptname&"><font color=blue>[使用帮助]</font></a></td>"
response.write "</tr>"
response.write "</table>"
response.write "</td>"
response.write "<td align=center valign=top class=tablebody1>"
if CurType<>98 and CurType<>97 then
if CurType=0 then
if shopid=100 then
sqlvisual="select my.username,my.fromuser,my.adddate,my.fixdate,my.period,my.price,visual.id,visual.price1,visual.price2,visual.sex,visual.content,visual.name,visual.period as period0 from visual_myitems my inner join visual_items visual on visual.id=my.itemid where my.type=1 and my.username='"&MemberName&"' order by my.id desc"
elseif shopid=200 then
sqlvisual="select my.username,my.fromuser,my.adddate,my.fixdate,my.period,my.price,visual.id,visual.price1,visual.price2,visual.sex,visual.content,visual.name,visual.period as period0 from visual_myitems my inner join visual_items visual on visual.id=my.itemid where my.type=2 and my.username='"&MemberName&"' order by my.id desc"
elseif shopid=300 then
sqlvisual="select my.username,my.fromuser,my.adddate,my.fixdate,my.period,my.price,visual.id,visual.price1,visual.price2,visual.sex,visual.content,visual.name,visual.period as period0 from visual_myitems my inner join visual_items visual on visual.id=my.itemid where my.type=3 and my.username='"&MemberName&"' order by my.id desc"
elseif shopid=400 then
sqlvisual="select my.username,my.fromuser,my.adddate,my.fixdate,my.period,my.price,visual.id,visual.price1,visual.price2,visual.sex,visual.content,visual.name,visual.period as period0 from visual_myitems my inner join visual_items visual on visual.id=my.itemid where my.type=4 and my.username='"&MemberName&"' order by my.id desc"
elseif shopid=500 then
sqlvisual="select my.username,my.fromuser,my.adddate,my.fixdate,my.period,my.price,visual.id,visual.price1,visual.price2,visual.sex,visual.content,visual.name,visual.period as period0,saleprice from visual_myitems my inner join visual_items visual on visual.id=my.itemid where my.type=5 and my.username='"&MemberName&"' order by my.id desc"
else
sqlvisual="select my.username,my.fromuser,my.adddate,my.fixdate,my.period,my.price,visual.id,visual.price1,visual.price2,visual.sex,visual.content,visual.name,visual.period as period0 from visual_myitems my inner join visual_items visual on visual.id=my.itemid where my.type=0 and my.username='"&MemberName&"' order by my.id desc"
end if
elseif CurType=99 then
if shopid=199 then
if sex="1" or sex="0" then
sqlvisual="select top 100 * from visual_items where (sex="&sex&" or sex=2) and flag>0 and type>0 order by DateAndTime desc"
else
sqlvisual="select top 100 * from visual_items where flag>0 and type>0 order by DateAndTime desc"
end if
elseif shopid=299 then
if sex="1" or sex="0" then
sqlvisual="select top 50 * from visual_items where (sex="&sex&" or sex=2) and flag>0 and type>0 order by totalsales desc, id desc"
else
sqlvisual="select top 50 * from visual_items where flag>0 and type>0 order by totalsales desc, id desc"
end if
elseif shopid=399 then
if sex="1" or sex="0" then
sqlvisual="select * from visual_items where (sex="&sex&" or sex=2) and flag>0 and type>0 and vip order by id desc"
else
sqlvisual="select * from visual_items where flag>0 and vip and type>0 order by id desc"
end if
else
if sex="1" or sex="0" then
sqlvisual="select * from visual_items where (sex="&sex&" or sex=2) and flag>0 and type>0 and price1<="&PriceMin&" order by id desc"
else
sqlvisual="select * from visual_items where flag>0 and price1<="&PriceMin&" and type>0 order by id desc"
end if
end if
elseif CurType=96 then
if shopid=196 then
if sex="1" or sex="0" then
sqlvisual="select m.ItemID as ID,v.Name,v.sex,v.content,v.price1,v.price2,v.period as period0,m.username,m.period,m.saleprice,m.fixdate,m.ID as ID1 from visual_myitems m inner join visual_items v on m.itemid=v.id where (v.sex="&sex&" or v.sex=2) and m.type=5 and v.type mod 100=1 order by m.id desc"
else
sqlvisual="select m.ItemID as ID,v.Name,v.sex,v.content,v.price1,v.price2,v.period as period0,m.username,m.period,m.saleprice,m.fixdate,m.ID as ID1 from visual_myitems m inner join visual_items v on m.itemid=v.id where m.type=5 and v.type mod 100=1 order by m.id desc"
end if
elseif shopid=296 then
if sex="1" or sex="0" then
sqlvisual="select m.ItemID as ID,v.Name,v.sex,v.content,v.price1,v.price2,v.period as period0,m.username,m.period,m.saleprice,m.fixdate,m.ID as ID1 from visual_myitems m inner join visual_items v on m.itemid=v.id where (v.sex="&sex&" or v.sex=2) and m.type=5 and v.type mod 100=2 order by m.id desc"
else
sqlvisual="select m.ItemID as ID,v.Name,v.sex,v.content,v.price1,v.price2,v.period as period0,m.username,m.period,m.saleprice,m.fixdate,m.ID as ID1 from visual_myitems m inner join visual_items v on m.itemid=v.id where m.type=5 and v.type mod 100=2 order by m.id desc"
end if
elseif shopid=396 then
if sex="1" or sex="0" then
sqlvisual="select m.ItemID as ID,v.Name,v.sex,v.content,v.price1,v.price2,v.period as period0,m.username,m.period,m.saleprice,m.fixdate,m.ID as ID1 from visual_myitems m inner join visual_items v on m.itemid=v.id where (v.sex="&sex&" or v.sex=2) and m.type=5 and v.type mod 100=3 order by m.id desc"
else
sqlvisual="select m.ItemID as ID,v.Name,v.sex,v.content,v.price1,v.price2,v.period as period0,m.username,m.period,m.saleprice,m.fixdate,m.ID as ID1 from visual_myitems m inner join visual_items v on m.itemid=v.id where m.type=5 and v.type mod 100=3 order by m.id desc"
end if
else
if sex="1" or sex="0" then
sqlvisual="select m.ItemID as ID,v.Name,v.sex,v.content,v.price1,v.price2,v.period as period0,m.username,m.period,m.saleprice,m.fixdate,m.ID as ID1 from visual_myitems m inner join visual_items v on m.itemid=v.id where (v.sex="&sex&" or v.sex=2) and m.type=5 and v.type mod 100<>1 and v.type mod 100<>2 and v.type mod 100<>3 and v.type mod 100<>4 order by m.id desc"
else
sqlvisual="select m.ItemID as ID,v.Name,v.sex,v.content,v.price1,v.price2,v.period as period0,m.username,m.period,m.saleprice,m.fixdate,m.ID as ID1 from visual_myitems m inner join visual_items v on m.itemid=v.id where m.type=5 and v.type mod 100<>1 and v.type mod 100<>2 and v.type mod 100<>3 order by m.id desc"
end if
end if
elseif CurType=95 then
sqlvisual="select * from visual_items where flag>0 and type>0"
if not (isnull(request("search_str")) or request("search_str")="") then
sqlvisual=sqlvisual&" and name like '%"&checkstr(trim(request("search_str")))&"%'"
searchmsg="搜索[<font style='font-size:12px' >"&checkstr(trim(request("search_str")))&"</font>]"
else
searchmsg="搜索[]"
end if
searchmsg=searchmsg&"（性别"
if not (isnull(request("selgender")) or request("selgender")="") then
select case request("selgender")
case "1"
sqlvisual=sqlvisual&" and sex=1"
searchmsg=searchmsg&"<font style='font-size:12px' >男</font>"
case "2"
sqlvisual=sqlvisual&" and sex=0"
searchmsg=searchmsg&"<font style='font-size:12px' >女</font>"
case "3"
sqlvisual=sqlvisual&" and sex=2"
searchmsg=searchmsg&"<font style='font-size:12px' >男女适宜</font>"
case else
searchmsg=searchmsg&"<font style='font-size:12px' >不限</font>"
end select
else
searchmsg=searchmsg&"<font style='font-size:12px' >不限</font>"
end if
dim hasFlag
hasFlag=false
searchmsg=searchmsg&"，价格"
if not (isnull(request("selprice_l")) or request("selprice_l")="") then
if isInteger(request("selprice_l")) then
if v_myvip<=1 then
sqlvisual=sqlvisual&" and price1>="&request("selprice_l")
else
sqlvisual=sqlvisual&" and price2>="&request("selprice_l")
end if
searchmsg=searchmsg&"<font style='font-size:12px' >"&request("selprice_l")&"元以上</font>"
hasFlag=true
end if
end if
if not (isnull(request("selprice_h")) or request("selprice_h")="") then
if isInteger(request("selprice_h")) then
if v_myvip<=1 then
sqlvisual=sqlvisual&" and price1<="&request("selprice_h")
else
sqlvisual=sqlvisual&" and price2<="&request("selprice_h")
end if
searchmsg=searchmsg&"<font style='font-size:12px' >"&request("selprice_h")&"元以下</font>"
hasFlag=true
end if
end if
if not hasFlag then searchmsg=searchmsg&"<font style='font-size:12px' >不限</font>"
hasFlag=false
searchmsg=searchmsg&"，有效期"
if not (isnull(request("selperiod_l")) or request("selperiod_l")="") then
if isInteger(request("selperiod_l")) then
sqlvisual=sqlvisual&" and period>="&request("selperiod_l")
searchmsg=searchmsg&"<font style='font-size:12px' >"&request("selperiod_l")&"天以上</font>"
hasFlag=true
end if
end if
if not (isnull(request("selperiod_h")) or request("selperiod_h")="") then
if isInteger(request("selperiod_h")) then
sqlvisual=sqlvisual&" and period<="&request("selperiod_h")
searchmsg=searchmsg&"<font style='font-size:12px' >"&request("selperiod_h")&"天以下</font>"
hasFlag=true
end if
end if
if not hasFlag then searchmsg=searchmsg&"<font style='font-size:12px' >不限</font>"
searchmsg=searchmsg&"，"
if not (isnull(request("selflag")) or request("selflag")="") then
select case request("selflag")
case "1"
sqlvisual=sqlvisual&" and flag>=1"
searchmsg=searchmsg&"限购者<font style='font-size:12px' >所有会员</font>"
case "2"
sqlvisual=sqlvisual&" and flag>=2"
searchmsg=searchmsg&"限购者<font style='font-size:12px' >版主以上</font>"
case "3"
sqlvisual=sqlvisual&" and flag>=3"
searchmsg=searchmsg&"限购者<font style='font-size:12px' >超级版主</font>"
case "4"
sqlvisual=sqlvisual&" and flag>=4"
searchmsg=searchmsg&"限购者<font style='font-size:12px' >管理员</font>"
case else
searchmsg=searchmsg&"限购者<font style='font-size:12px' >不限</font>"
end select
else
searchmsg=searchmsg&"限购者<font style='font-size:12px' >不限</font>"
end if
sqlvisual=sqlvisual&" order by "
if isnull(request("sortobj")) or request("sortobj")="" then
sqlvisual=sqlvisual&"id"
else
if request("sortobj")<>"dateandtime" and request("sortobj")<>"price1" and request("sortobj")<>"price2" and request("sortobj")<>"period" and request("sortobj")<>"flag" then
sqlvisual=sqlvisual&"id"
else
sqlvisual=sqlvisual&request("sortobj")
end if
end if
if isnull(request("sorttype")) or request("sorttype")="" then
sqlvisual=sqlvisual&" desc"
else
if request("sorttype")<>"asc" then
sqlvisual=sqlvisual&" desc"
else
sqlvisual=sqlvisual&" asc"
end if
end if
searchmsg=searchmsg&"）"
elseif CurType<>98 and CurType<>97 then
if sex="1" or sex="0" then
sqlvisual="select * from visual_items where type="&shopid&" and (sex="&sex&" or sex=2) and flag>0 order by id desc"
else
sqlvisual="select * from visual_items where type="&shopid&" and flag>0 order by id desc"
end if
end if
rsvisual.open sqlvisual,conn,1,1
totalrec=rsvisual.recordcount
if totalrec mod 10=0 then
pagecount=totalrec \ 10
else
pagecount=totalrec \ 10+1
end if
curcount=0
response.write "<table id=visualshowGoods border=0 cellspacing=1 cellpadding=0>"
response.write "<tr height=25 valign=middle>"
response.write "<th valign=middle>"
if CurType=95 then
response.write searchmsg&"结果：共<font style='font-size:12px' >"&totalrec&"</font>条"
else
response.write TypeName&" - "&SubTypeName
if CurType<>0 then
response.write " ( <a href=?shopid="&shopid&"&sex=1>男</a> <a href=?shopid="&shopid&"&sex=0>女</a> <a href=?shopid="&shopid&">全部</a> )"
end if
end if
response.write "</th>"
response.write "</tr>"
if not rsvisual.eof then
if curpage > pagecount then curpage = pagecount
if curpage < 1 then curpage=1
Rsvisual.PageSize=10
Rsvisual.AbsolutePage=CurPage
do while not rsvisual.eof and curcount<10
isHas=not (conn.execute("select top 1 itemid from visual_myitems where itemid="&rsvisual("id")&" and username='"&MemberName&"'").eof)
curcount=curcount+1
if curcount mod 2=1 then
response.write "<tr valign=middle>"
response.write "<td class=tablebody1 align=center>"
response.write "<table width=560 border=0 cellspacing=0 cellpadding=0>"
response.write "<tr>"
else
response.write "<td width=14> </td>"
end if
response.write "<td width=282>"
response.write "<table width=282 border=0 cellspacing=2 cellpadding=0>"
response.write "<tr valign=middle>"
response.write "<td rowspan=5 class=tablebody2 width=84 height=84>"
if localpic=1 then
response.write "<img src="""&PicPath&"0/"&right("0000"&rsvisual("id"),4)&".GIF"" "
else
response.write "<img src="""&PicPath&right("00000000"&rsvisual("id"),8)&"/00/00/"" "
end if
if shopid=600 then
response.write "alt=""过期商品不能使用"" width=""84"" height=""84"" border=""0"" style=""CURSOR:help"">"
elseif CurType=96 then
response.write "alt=""二手商品不能试穿"" width=""84"" height=""84"" border=""0"" style=""CURSOR:help"">"
elseif CurType<>0 and isHas then
response.write "alt=""已有商品商店不能试穿"" width=""84"" height=""84"" border=""0"" style=""CURSOR:help"">"
else
response.write "alt=""点击鼠标左键试穿"" width=""84"" height=""84"" border=""0"" itemgender="""&rsvisual("sex")&""" itemno="""&rsvisual("id")&""" layerno="""&rsvisual("content")&""" style=""CURSOR:hand"" onclick=""visualshow.clickDress()"">"
end if
response.write "</td>"
response.write "<td class=tablebody2 height=20> "
response.write rsvisual("name")
response.write "("
if rsvisual("sex")=1 then
response.write "男"
elseif rsvisual("sex")=0 then
response.write "女"
else
response.write "不限"
end if
response.write ")"
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle>"
response.write "<td class=tablebody2 height=20> "
if CurType=0 then
if shopid=500 then
response.write "出售价："
response.write rsvisual("saleprice")&" 元"
else
response.write "购买价："
if rsvisual("price")<=0 then
response.write "<font style='font-size:12px' >免费</font>"
else
response.write rsvisual("price")&" 元"
end if
end if
elseif CurType=96 then
response.write "商店价："
if v_myvip<=1 then
if rsvisual("price1")<=0 then
response.write "<font style='font-size:12px' >免费</font>"
else
response.write rsvisual("price1")&" 元"
end if
else
if rsvisual("price2")<=0 then
response.write "<font style='font-size:12px' >免费</font>"
else
response.write rsvisual("price2")&" 元"
end if
end if
else
response.write "标 价："
if rsvisual("price1")<=0 then
response.write "<font style='font-size:12px' >免费</font>"
else
response.write rsvisual("price1")&" 元"
end if
end if
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle>"
response.write "<td class=tablebody2 height=20> "
if CurType=0 then
if shopid=500 then
response.write "成本价："
else
response.write "当前价："
end if
if v_myvip<=1 then
if rsvisual("price1")<=0 then
response.write "<font style='font-size:12px' >免费</font>"
else
response.write rsvisual("price1")&" 元"
end if
else
if rsvisual("price2")<=0 then
response.write "<font style='font-size:12px' >免费</font>"
else
response.write rsvisual("price2")&" 元"
end if
end if
elseif CurType=96 then
response.write "二手价："
response.write "<font style='font-size:12px' >"&rsvisual("saleprice")&"</font> 元"
else
response.write "VIP 价："
if rsvisual("price2")<=0 then
response.write "<font style='font-size:12px' >免费</font>"
else
response.write "<font style='font-size:12px' >"&rsvisual("price2")&"</font> 元"
end if
end if
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle>"
response.write "<td class=tablebody2 height=20> "
if CurType=0 then
response.write "有效期："
if rsvisual("period")=0 then
response.write "<font style='font-size:12px' >永远有效</font>"
elseif datediff("d",rsvisual("fixdate"),now())>rsvisual("period") then
response.write "<font style='font-size:12px' >已经过期</font>"
else
response.write "还剩 "&(rsvisual("period")-datediff("d",rsvisual("fixdate"),now()))&" 天"
end if
elseif CurType=96 then
response.write "新品期："
if rsvisual("period0")<=0 then
response.write "<font style='font-size:12px' >不限</font>"
else
response.write rsvisual("period0")&" 天"
end if
else
response.write "有效期："
if rsvisual("period")<=0 then
response.write "<font style='font-size:12px' >不限</font>"
else
response.write rsvisual("period")&" 天"
end if
end if
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle>"
response.write "<td class=tablebody2 height=20> "
if CurType=0 then
response.write "拥有日："
response.write formatdatetime(rsvisual("adddate"),2)
elseif CurType=96 then
response.write "二手期："
if rsvisual("period")<=0 then
response.write "<font style='font-size:12px' >永远有效</font>"
elseif datediff("d",rsvisual("fixdate"),now())>rsvisual("period") then
response.write "<font style='font-size:12px' >已经过期</font>"
else
response.write "还剩 "&(rsvisual("period")-datediff("d",rsvisual("fixdate"),now()))&" 天"
end if
else
response.write "库 存："
if rsvisual("quantity")<=0 or isnull(rsvisual("quantity")) then
response.write "<font style='font-size:12px' >断货</font>"
else
response.write rsvisual("quantity")&" 个"
end if
end if
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle>"
response.write "<td class=tablebody2 height=20 align=center>"
if CurType=0 then
if rsvisual("fromuser")=rsvisual("username") then
response.write "<font color=blue alt=来源>形象商店</font>"
else
response.write "<font color=blue alt=来源>"&rsvisual("fromuser")&"</font>"
end if
elseif CurType=96 then
response.write "<font color=blue>二手商品</font>"
else
if rsvisual("vip") then
response.write "<font style='font-size:12px' >VIP商品</font>"
else
response.write "普通商品"
end if
end if
response.write "</td>"
response.write "<td class=tablebody2 height=20> "
if CurType=0 then
response.write "翻新日："
if isnull(rsvisual("fixdate")) or (rsvisual("fixdate")=rsvisual("adddate") and rsvisual("period")=rsvisual("period0")) then
response.write "尚未翻新"
else
response.write "<font style='font-size:12px' >"&formatdatetime(rsvisual("fixdate"),2)&"</font>"
end if
elseif CurType=96 then
response.write "出售者："
response.write "<a href=dispuser.asp?Username="&rsvisual("username")&" target=_blank><font color=blue>"&rsvisual("username")&"</font></a>"
else
response.write "限购者："
select case rsvisual("flag")
case 1
response.write "所有会员"
case 2
response.write "<font style='font-size:12px' >版主以上</font>"
case 3
response.write "<font style='font-size:12px' >超级版主</font>"
case 4
response.write "<font style='font-size:12px' >管理员</font>"
end select
end if
response.write "</td>"
response.write "</tr>"
if CurType=96 then
response.write "<form name=form1_"&rsvisual("id1")&" action=Visual_buy.asp method=get target=openScript><input type=hidden name=itemid value="&rsvisual("id")&"><input type=hidden name=fromuser value=""""></form>"
response.write "<form name=form2_"&rsvisual("id1")&" action=Visual_send.asp method=get target=openScript><input type=hidden name=itemid value="&rsvisual("id")&"><input type=hidden name=myself value=0><input type=hidden name=fromuser value=""""></form>"
else
response.write "<form name=form1_"&rsvisual("id")&" action=Visual_buy.asp method=get target=openScript><input type=hidden name=itemid value="&rsvisual("id")&"><input type=hidden name=fromuser value=""""></form>"
response.write "<form name=form2_"&rsvisual("id")&" action=Visual_send.asp method=get target=openScript><input type=hidden name=itemid value="&rsvisual("id")&"><input type=hidden name=myself value=0><input type=hidden name=fromuser value=""""></form>"
end if
response.write "<form name=form3_"&rsvisual("id")&" action=Visual_fix.asp method=get target=openScript><input type=hidden name=itemid value="&rsvisual("id")&"></form>"
response.write "<form name=form4_"&rsvisual("id")&" action=Visual_sale.asp method=get target=openScript><input type=hidden name=itemid value="&rsvisual("id")&"><input type=hidden name=stopsale value=0></form>"
response.write "<tr valign=middle>"
response.write "<td class=tablebody2 height=20 align=center>〖"
if CurType=0 then
if rsvisual("period")>0 then
response.write "<b><font color=blue style=""cursor:hand"" alt=""翻新"" onclick=""javascript:openScript('about:blank',500,400);form3_"&rsvisual("id")&".submit()"">翻新</font></b>"
else
response.write "<b><font color=gray style=""cursor:hand"" alt='永远有效的商品无须翻新！'>翻新</font></b>"
end if
elseif CurType=96 then
response.write "<b><font color=gray style=""cursor:hand"" alt='二手商品不能试穿！'>试穿</font></b>"
else
if not isHas then
response.write "<b><font color=blue style=""cursor:hand"" alt=""试穿"" itemgender="""&rsvisual("sex")&""" itemno="""&rsvisual("id")&""" layerno="""&rsvisual("content")&""">试穿</font></b>"
else
response.write "<b><font color=gray style=""cursor:hand"" alt='这个商品您已经有了，请到您的储物柜中试穿！'>试穿</font></b>"
end if
end if
response.write "〗"
response.write "</td>"
response.write "<td class=tablebody2 height=20 align=center>〖"
if CurType=0 then
if instr(1,"|"&v_myvisual,"|"&rsvisual("id")&".")<=0 then
response.write "<b><font color=blue style=""cursor:hand"" alt=""赠送"" onclick=""javascript:form2_"&rsvisual("id")&".myself.value=1;openScript('about:blank',500,400);form2_"&rsvisual("id")&".submit()"">赠送</font></b>"
else
response.write "<b><font color=gray style=""cursor:hand"" alt='正在使用的商品不能赠送！'>赠送</font></b>"
end if
response.write "〗 〖"
if shopid=500 then
response.write "<b><font color=blue style=""cursor:hand"" alt=""停售"" onclick=""javascript:form4_"&rsvisual("id")&".stopsale.value=1;openScript('about:blank',500,400);form4_"&rsvisual("id")&".submit()"">停售</font></b>"
else
if instr(1,"|"&v_myvisual,"|"&rsvisual("id")&".")<=0 then
response.write "<b><font color=blue style=""cursor:hand"" alt=""出售"" onclick=""javascript:form4_"&rsvisual("id")&".stopsale.value=0;openScript('about:blank',500,400);form4_"&rsvisual("id")&".submit()"">出售</font></b>"
else
response.write "<b><font color=gray style=""cursor:hand"" alt='正在使用的商品不能出售！'>出售</font></b>"
end if
end if
else
if CurType=96 then
if lcase(trim(rsvisual("username")))=lcase(trim(MemberName)) then
response.write "<b><font color=gray style=""cursor:hand"" alt='这是您出售的商品，您自己不能购买！'>购买</font></b>"
elseif not isHas then
response.write "<b><font color=blue style=""cursor:hand"" alt=""购买"" onclick=""javascript:if(confirm('您确定立即购买这个二手商品吗?')){form1_"&rsvisual("id1")&".fromuser.value='"&rsvisual("username")&"';openScript('about:blank',500,400);form1_"&rsvisual("id1")&".submit();return true;} return false;"">购买</font></b>"
else
response.write "<b><font color=gray style=""cursor:hand"" alt='这个商品您已经有了，无须再次购买！'>购买</font></b>"
end if
else
if not isHas then
response.write "<b><font color=blue style=""cursor:hand"" alt=""购买"" onclick=""javascript:form1_"&rsvisual("id")&".fromuser.value='';openScript('about:blank',500,400);form1_"&rsvisual("id")&".submit()"">购买</font></b>"
else
response.write "<b><font color=gray style=""cursor:hand"" alt='这个商品您已经有了，无须再次购买！'>购买</font></b>"
end if
end if
response.write "〗 〖"
if CurType=96 then
if lcase(trim(rsvisual("username")))=lcase(trim(MemberName)) then
response.write "<b><font color=gray style=""cursor:hand"" alt='这是您出售的商品，如需赠送请先取消销售！'>赠送</font></b>"
else
response.write "<b><font color=blue style=""cursor:hand"" alt=""赠送"" onclick=""javascript:form2_"&rsvisual("id1")&".myself.value=0;form2_"&rsvisual("id1")&".fromuser.value='"&rsvisual("username")&"';openScript('about:blank',500,400);form2_"&rsvisual("id1")&".submit()"">赠送</font></b>"
end if
else
response.write "<b><font color=blue style=""cursor:hand"" alt=""赠送"" onclick=""javascript:form2_"&rsvisual("id")&".myself.value=0;form2_"&rsvisual("id")&".fromuser.value='';openScript('about:blank',500,400);form2_"&rsvisual("id")&".submit()"">赠送</font></b>"
end if
end if
response.write "〗"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</td>"
if curcount mod 2=0 then
response.write "</tr>"
response.write "</table>"
response.write "</td>"
response.write "</tr>"
end if
rsvisual.movenext
loop
end if
curcount=curcount+1
for i=curcount to 10
if i mod 2=1 then
response.write "<tr valign=middle>"
response.write "<td class=tablebody1 align=center>"
response.write "<table width=560 border=0 cellspacing=0 cellpadding=0>"
response.write "<tr>"
else
response.write "<td width=14> </td>"
end if
response.write "<td width=282>"
response.write "<table width=282 border=0 cellspacing=2 cellpadding=0>"
response.write "<tr>"
response.write "<td rowspan=5 height=84 width=84 class=tablebody2> </td>"
response.write "<td class=tablebody2 height=20> </td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td class=tablebody2 height=20> </td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td class=tablebody2 height=20> </td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td class=tablebody2 height=20> </td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td class=tablebody2 height=20> </td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td class=tablebody2 height=20> </td>"
response.write "<td class=tablebody2 height=20> </td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td class=tablebody2 height=20> </td>"
response.write "<td class=tablebody2 height=20> </td>"
response.write "</tr>"
response.write "</table>"
response.write "</td>"
if i mod 2=0 then
response.write "</tr>"
response.write "</table>"
response.write "</td>"
response.write "</tr>"
end if
next
rsvisual.close
response.write "</table>"
response.write "<table width=100% border=0 cellspacing=0 cellpadding=0>"
response.write "<tr height=25 valign=middle>"
response.write "<td valign=middle class=tablebody1> 页次：<b>"&curPage&"</b> / <b>"&pagecount&"</b> 页 每页：<b>10</b> 共计：<b>"&totalrec&"</b></td>"
response.write "<td valign=middle class=tablebody1 align=right>分页："
call DispPageNum(curpage,pagecount,"?shopid="&shopid&"&sex="&sex&"&page=","&search_str="&request("search_str")&"&selgender="&request("selgender")&"&selprice_l="&request("selprice_l")&"&selprice_h="&request("selprice_h")&"&selperiod_l="&request("selperiod_l")&"&selperiod_h="&request("selperiod_h")&"&selflag="&request("selflag")&"&sortobj="&request("sortobj")&"&sorttype="&request("sorttype")&"#VisualTop")
response.write " </td>"
response.write "</tr>"
response.write "</table>"
elseif CurType=98 then
response.write "<br>"
response.write "<table border=0 cellspacing=1 cellpadding=0 width=95% >"
response.write "<tr height=25 valign=middle>"
response.write "<th valign=middle>使用帮助</th>"
response.write "</tr>"
response.write "<tr height=620>"
response.write "<td width=100% class=tablebody2 valign=top><br><blockquote style=""line-height:20px"">"
if shopid=198 then
response.write " 欢迎您使用<font color=blue>"&webname&"</font>的<b>形象设计系统</b>！<br><br>"
response.write " 本系统分为<a href=?shopid=298><font color=blue><b>个人商品</b></font></a>、<a href=?shopid=398><font color=blue><b>社区商店</b></font></a>、<a href=?shopid=498><font color=blue><b>二手市场</b></font></a>和<a href=?shopid=598><font color=blue><b>照相馆</b></font></a>四部分。<br><br>"
response.write " 在您的个人形象、试穿记录和个人状态下，您可以看到“<b>查看购物袋</b>”的连接，购物袋中的商品可以删除或清空，赠送的商品可以点击受赠者修改随同赠言，当您认为所有商品都没有问题后，点击“<B>结算</b>”即可支付货款，并得到或送出购买的商品，如果是买来自用的商品，这时已经放到您的储物柜中，如果这个商品已经在试穿时放在了身上，则此时系统也会自动帮您保存一下新的形象。<br><br>"
response.write " 在“<b>查看购物袋</b>”的下面有四个连接可以供您了解您以往购买、赠送、受赠以及出售商品的记录。<br><br>"
elseif shopid=298 then
response.write "<a href=""?shopid=100""><font style='font-size:12px' ><b>个人商品</b></font></a>：<br><br>"
response.write " 可以查看自己已经拥有的物品，更换正在使用的服装、衣帽和背景等个人用品，翻新已经拥有的商品，以及清查自己正在出售的商品等。"
response.write "个人商品内设：<br><br>"
response.write " 1、<a href=""?shopid=100""><font color=blue><B>我的衣橱</b></font></a>：用于存放套装、上衣、裤裙和帽子等物品。<br><br>"
response.write " 2、<a href=""?shopid=200""><font color=blue><B>我的化妆包</b></font></a>：用于存放头部造型、脸形、眼眉、发型、口鼻和表情等物品。<br><br>"
response.write " 3、<a href=""?shopid=300""><font color=blue><B>我的首饰盒</b></font></a>：用于存放项饰品、头饰品、礼品、眼镜和包袋等物品。<br><br>"
response.write " 4、<a href=""?shopid=400""><font color=blue><B>我的杂物箱</b></font></a>：用于存放背景、效果、Q哥Q妹、动物、宠物以及其它物品等。<br><br>"
response.write " 以上四类的物品只要没有过期，您可以随时点击图片试穿后“<B>保存</b>”即可换上；也可以“<b>赠送</b>”给您的好友，赠送时可以一并写上几句祝福的话语；一旦商品即将过期，可以点“<B>翻新</b>”进行修复，修复时需要选择是增加一定的有效期，还是想永远有效；对于不需要的商品您可以放到二手市场“<B>出售</b>”，出售前需要指定售价并支付手续费。<br><br>"
response.write " 5、<a href=""?shopid=500""><font color=blue><B>我的货架</b></font></a>：在此，您可以看到您在二手市场出售的所有商品，这些商品您一样可以点击图片试穿后“<B>保存</b>”；同时您也可以“<B>赠送</b>”和“<B>翻新</b>”这些已经出售的商品，赠送时系统会自动取消您的出售并退回您的手续费；最后，如果您打算放弃出售这个商品，可以点击“<B>停售</b>”，手续费会立即退还给您！<br><br>"
response.write " 6、<a href=""?shopid=600""><font color=blue><B>我的破衣篓</b></font></a>：这里的物品都是已经过期的，因此您无法在此试穿这些商品，您只有“<b>翻新</b>”后才可以继续使用；这里的商品一样可以“<B>赠送</b>”和“<B>出售</b>”。<br><br>"
elseif shopid=398 then
response.write "<a href=""?shopid=101""><font style='font-size:12px' ><b>社区商店</b></font></a>：<br><br>"
response.write " 下设"
sqlvisual="select seqno,typename from visual_type where visible order by orders"
rsvisual.open sqlvisual,conn,1,1
set rs=server.createobject("adodb.recordset")
TypeCount=0
do while not rsvisual.eof
sqlvisual="select top 1 seqno from visual_subtype where typeseq="&rsvisual("seqno")&" and visible order by orders"
rs.open sqlvisual,conn,1,1
if not rs.eof then
if TypeCount>0 then
rsvisual.movenext
if rsvisual.eof then
response.write "和"
else
response.write "、"
end if
rsvisual.moveprevious
end if
response.write "<a href=""?shopid="&rs("seqno")&right("00"&rsvisual("seqno"),2)&"""><font color=blue><B>"&rsvisual("TypeName")&"</b></font></a>"
TypeCount=TypeCount+1
end if
rs.close
rsvisual.movenext
loop
set rs=nothing
rsvisual.close
response.write "共计"&TypeCount&"个"
response.write "柜台，在这里您可以选购您满意的商品，点击“<B>试穿</b>”后保存或直接点击“<B>购买</b>”放入您的购物袋，打算“<B>赠送</b>”的物品也会放入购物袋中，购物袋最多可以存放<font style='font-size:12px' ><b>"&CartLength&"</b></font>个商品，放满了就必须“<B>结算</b>”后才能继续选购。"
response.write "有些物品只能适合某些人员使用，请购买时注意。"
response.write "<font style='font-size:12px' ><b>VIP会员</b></font>可以买到更多更便宜的物品。"
response.write "如果商品已经断货，您就不能再买了。<br><br>"
response.write " <a href=""?shopid=199""><font color=blue><B>推荐商品</b></font></a>是<font color=blue>"&webname&"</font>提供给您的简单操作向导，这里的<a href=""?shopid=199""><font color=blue><B>最新上架</b></font></a>列出了社区商店近期新近到货的商品，<a href=""?shopid=299""><font color=blue><B>热销商品</b></font></a>则列出目前所有人员中拥有两最多的物品，<a href=""?shopid=399""><font color=blue><B>VIP专卖</b></font></a>中可以看到商店中所有对<font style='font-size:12px' ><b>VIP会员</b></font>专供的商品，如果您不是<font style='font-size:12px' ><b>VIP会员</b></font>，请赶快<a href=NF_vip.asp target=_blank><font color=blue><b>申请</b></font></a>吧，当然也可以到<a href=""?shopid=196""><font color=blue><B>二手市场</b></font></a>转转，说不定可以买到特供商品哟！<br><br>"
elseif shopid=498 then
response.write "<a href=""?shopid=196""><font style='font-size:12px' ><B>二手市场</b></font></a>：<br><br>"
response.write " 由于价格便宜，商品种类五花八门，所以相对服务质量较差，所有商品无法试穿，只能选择立即“<B>购买</b>”或立即“<B>赠送</b>”，二手市场没有为您准备购物袋，选购的商品必须立即现金交易。"
response.write "当您付款后，出售者也会立即得到您支付的款项。<br><br>"
elseif shopid=598 then
response.write "<a href=""?shopid=197""><font style='font-size:12px' ><B>照相馆</b></font></a>：<br><br>"
response.write " 1、<b>个人写真</b>：<br>"
response.write " 写真前您需要先换好自己准备写真的衣服，更换衣服只需<b>试穿</b>，不需要<b>保存</b>，然后点击形象下边的<b>写真</b>即可进入个人写真的设计。"
response.write "设计时可以分别选择人物和名称，以及写真的名称和写真的时间等文字和图象进行移动、剪裁、放缩、反转、字体等操作，完成设计保存后，写真的照片即可生成。<br><br>"
response.write " 2、<b>多人合影</b>：<br>"
response.write " 可以提供最多 <b><font style='font-size:12px' >"&conn.execute("select top 1 PhotoUserCount from Visual_Config")(0)&"人</font></b> 的集体合影，合影前发起人需要先换好自己参加合影的衣服，更换衣服只需<b>试穿</b>，不需要<b>保存</b>，然后进入<a href=?shopid=197><font color=blue><b>发送新请求</b></font></a>页面，首先确定合影的名称以及对参与者的邀请言，同时还需要指定照片的背景以及照片是否公开给大家浏览，确定后系统会马上向所有被邀请的参与者发送短消息。"
response.write "您可以在<a href=?shopid=297><font color=blue><b>发送的请求</b></font></a>中看到所有您发出的且尚未被所有参与者全部确认的请求。<br><br>"
response.write " 被邀请人收到请求短消息后，在<a href=?shopid=397><font color=blue><b>收到的请求</b></font></a>中找到自己尚未确认的请求加以确认，同样，参与者也可以在确认前换好自己满意的衣服，同样，换衣服时只需<b>试穿</b>不必<b>保存</b>，确认时可以看到照片中出现的人物就是已经确认的会员。"
response.write "在所有会员全部确认前，除了发起者外，所有会员都可以再次更换服装后以新的形象重新确认请求。"
response.write "当所有参与者全部确认后，系统会通知发起者照片已经过所有人确认，可以开始设计了。<br><br>"
response.write " 发起者可以进入<a href=?shopid=497><font color=blue><b>确认的请求</b></font></a>中查看哪些请求已经被所有参与者确认了，既而可以对这些确认后的照片进行设计，设计时可以分别选择人物和名称，以及合影的名称和合影的时间等文字和图象进行移动、剪裁、放缩、反转、字体等操作，完成设计保存后，系统会通知所有参与者对您的设计发表意见。"
response.write "在所有参与者全部同意前，您仍然可以继续修改照片的设计，一旦所有参与者全部同意了您的设计后，系统会通知照片中的每个人，照片已经完成。<br><br>"
response.write " 3、<b>虚拟像簿</b>：<br>"
response.write " <a href=?shopid=597><font color=blue><b>我的虚拟像簿</b></font></a>中保存的是您参与的所有合影，其中也包括那些秘密的合影，在这里，您可以选择删除那些您不想要的照片，删除后，在您自己的像簿中这些相片将不在出现，但是，如果所有参与者中仍然有人保留着这张照片，那么在<a href=?shopid=697><font color=blue><b>大家的像簿</b></font></a>中仍然会存在这张照片，只有所有参与者都删除了，那么这张照片才会彻底消失。"
response.write "在像簿中还有一个<b>重印</b>功能，它可以帮助您在最后生成的PNG文件出现了问题时重新生成这个文件。<br><br>"
response.write " <a href=?shopid=697><font color=blue><b>大家的虚拟像簿</b></font></a>中保存的是所有会员公开的合影。<br><br>"
end if
response.write "</blockquote><br></td>"
response.write "</tr>"
response.write "</table>"
response.write "<br>"
elseif CurType=97 then%>
<!--#include file="Visual_js.asp"-->
<%response.write "<br>"
if shopid=197 then
call DispPhoto(0)
elseif shopid=297 then
if isnull(request("photoid")) then
call dispphotolist(1)
elseif not isInteger(request("photoid")) then
call dispphotolist(1)
elseif conn.execute("select id from visual_photo where id="&checkstr(trim(request("photoid")))&" and fromuser='"&MemberName&"' and not confirmed").eof then
call dispphotolist(1)
else
call dispphoto(1)
end if
elseif shopid=397 then
if isnull(request("photoid")) then
call dispphotolist(2)
elseif not isInteger(request("photoid")) then
call dispphotolist(2)
elseif conn.execute("select u.photo_id from visual_photouser u inner join visual_photo p on u.photo_id=p.id where u.photo_id="&checkstr(trim(request("photoid")))&" and u.username='"&MemberName&"' and not p.confirmed").eof then
call dispphotolist(2)
else
call dispphoto(2)
end if
elseif shopid=497 then
if isnull(request("photoid")) then
call dispphotolist(3)
elseif not isInteger(request("photoid")) then
call dispphotolist(3)
elseif conn.execute("select u.photo_id from visual_photouser u inner join visual_photo p on u.photo_id=p.id where u.photo_id="&checkstr(trim(request("photoid")))&" and u.username='"&MemberName&"' and p.confirmed and not p.finished").eof then
call dispphotolist(3)
else
call dispphoto(3)
end if
else
response.write "<table border=0 cellspacing=1 cellpadding=0 width=590 >"
response.write "<tr height=25 valign=middle>"
response.write "<th colspan=3>"&webname&"照相馆 - "
if shopid=597 then
sqlvisual="select p.* from visual_photouser u inner join visual_photo p on u.photo_id=p.id where u.username='"&MemberName&"' and p.finished and not u.deleted order by p.FinishDate desc"
response.write "我的虚拟相簿"
else
sqlvisual="select * from visual_photo where status=1 and finished order by FinishDate desc"
response.write "大家的虚拟相簿"
end if
response.write "</th>"
response.write "</tr>"
rsvisual.open sqlvisual,conn,1,1
totalrec=rsvisual.recordcount
if totalrec mod 4=0 then
pagecount=totalrec \ 4
else
pagecount=totalrec \ 4+1
end if
curcount=0
dim flag
flag=false
if not rsvisual.eof then
flag=true
if curpage > pagecount then curpage = pagecount
if curpage < 1 then curpage=1
Rsvisual.PageSize=4
Rsvisual.AbsolutePage=CurPage
dim rsPhotoUser
set rsPhotoUser=server.createobject("ADODB.recordset")
dim usercount,uservisualsplit(),usernamesplit(),PhotoDate
dim PhotoNameLeft,PhotoNameTop,PhotoNameFont,PhotoNameSize,PhotoNameBold,PhotoNameItalic,PhotoNameColor,PhotoNameDirection
dim DateLeft,DateTop,DateFont,DateSize,DateBold,DateItalic,DateColor,DateDirection
dim NameLeft(),NameTop(),NameFont(),NameSize(),NameBold(),NameItalic(),NameColor(),NameDirection()
dim OuterLeft(),OuterTop(),OuterWidth(),OuterHeight()
dim InnerLeft(),InnerTop(),InnerWidth(),InnerHeight()
dim LayerNo(),Direction()
dim UserNameStr
response.write "<tr valign=middle>"
response.write "<td class=tablebody1 align=center>"
response.write "<table width=590 border=0 cellspacing=0 cellpadding=0>"
do while not rsvisual.eof and curcount<4
curcount=curcount+1
sqlvisual="select * from visual_photouser where photo_id="&rsvisual("ID")
rsPhotoUser.open sqlvisual,conn,1,1
usercount=0
UserNameStr=""
do while not rsPhotoUser.eof
redim preserve uservisualsplit(usercount)
uservisualsplit(usercount)=rsPhotoUser("uservisual")
redim preserve usernamesplit(usercount)
usernamesplit(usercount)=rsPhotoUser("username")
redim preserve LayerNo(UserCount)
redim preserve OuterLeft(UserCount)
redim preserve OuterTop(UserCount)
redim preserve OuterWidth(UserCount)
redim preserve OuterHeight(UserCount)
redim preserve InnerLeft(UserCount)
redim preserve InnerTop(UserCount)
redim preserve InnerWidth(UserCount)
redim preserve InnerHeight(UserCount)
redim preserve Direction(UserCount)
redim preserve NameLeft(UserCount)
redim preserve NameTop(UserCount)
redim preserve NameFont(UserCount)
redim preserve NameSize(UserCount)
redim preserve NameBold(UserCount)
redim preserve NameItalic(UserCount)
redim preserve NameColor(UserCount)
redim preserve NameDirection(UserCount)
LayerNo(UserCount)=rsPhotoUser("LayerNo")
OuterLeft(UserCount)=rsPhotoUser("OuterLeft")
OuterTop(UserCount)=rsPhotoUser("OuterTop")
OuterWidth(UserCount)=rsPhotoUser("OuterWidth")
OuterHeight(UserCount)=rsPhotoUser("OuterHeight")
InnerLeft(UserCount)=rsPhotoUser("InnerLeft")
InnerTop(UserCount)=rsPhotoUser("InnerTop")
InnerWidth(UserCount)=rsPhotoUser("InnerWidth")
InnerHeight(UserCount)=rsPhotoUser("InnerHeight")
Direction(UserCount)=rsPhotoUser("Direction")
NameLeft(UserCount)=rsPhotoUser("NameLeft")
NameTop(UserCount)=rsPhotoUser("NameTop")
NameFont(UserCount)=rsPhotoUser("NameFont")
NameSize(UserCount)=rsPhotoUser("NameSize")
NameBold(UserCount)=rsPhotoUser("NameBold")
NameItalic(UserCount)=rsPhotoUser("NameItalic")
NameColor(UserCount)=rsPhotoUser("NameColor")
NameDirection(UserCount)=rsPhotoUser("NameDirection")
usercount=usercount+1
if usercount<=2 then UserNameStr=UserNameStr&rsPhotoUser("username")
rsPhotoUser.movenext
if not rsPhotoUser.eof and usercount<2 then UserNameStr=UserNameStr&","
loop
if usercount>2 then UserNameStr=UserNameStr&" 等"&UserCount&"人"
rsPhotoUser.close
sqlvisual="select * from visual_Accouterment where photo_id="&rsvisual("ID")
rsPhotoUser.open sqlvisual,conn,1,1
redim preserve uservisualsplit(usercount+5)
redim preserve OuterLeft(UserCount+5)
redim preserve OuterTop(UserCount+5)
redim preserve OuterWidth(UserCount+5)
redim preserve OuterHeight(UserCount+5)
redim preserve InnerLeft(UserCount+5)
redim preserve InnerTop(UserCount+5)
redim preserve InnerWidth(UserCount+5)
redim preserve InnerHeight(UserCount+5)
redim preserve Direction(UserCount+5)
for i=0 to 5
uservisualsplit(usercount+i)=""
OuterLeft(UserCount+i)=0
OuterTop(UserCount+i)=0
OuterWidth(UserCount+i)=120
OuterHeight(UserCount+i)=150
InnerLeft(UserCount+i)=0
InnerTop(UserCount+i)=0
InnerWidth(UserCount+i)=120
InnerHeight(UserCount+i)=150
Direction(UserCount+i)=0
next
do while not rsPhotoUser.eof
i=rsPhotoUser("SeqNo")
uservisualsplit(usercount+i)=rsPhotoUser("ItemPicPath")
OuterLeft(UserCount+i)=rsPhotoUser("OuterLeft")
OuterTop(UserCount+i)=rsPhotoUser("OuterTop")
OuterWidth(UserCount+i)=rsPhotoUser("OuterWidth")
OuterHeight(UserCount+i)=rsPhotoUser("OuterHeight")
InnerLeft(UserCount+i)=rsPhotoUser("InnerLeft")
InnerTop(UserCount+i)=rsPhotoUser("InnerTop")
InnerWidth(UserCount+i)=rsPhotoUser("InnerWidth")
InnerHeight(UserCount+i)=rsPhotoUser("InnerHeight")
Direction(UserCount+i)=rsPhotoUser("Direction")
rsPhotoUser.movenext
loop
rsPhotoUser.close
if curcount mod 2=1 then
response.write "<tr>"
else
response.write "<td width=14> </td>"
end if
response.write "<td width=290>"
response.write "<table width=290 border=0 cellspacing=2 cellpadding=0>"
response.write "<tr valign=middle height=150>"
response.write "<td class=tablebody2 align=center colspan=2 width=100% >"
call ShowVisualPhoto(rsvisual("Width"),rsvisual("Height"),rsvisual("Background"),rsvisual("BackBody"),rsvisual("ForeBody"),rsvisual("Foreground"),rsvisual("Name"),rsvisual("PhotoNameLeft"),rsvisual("PhotoNameTop"),rsvisual("PhotoNameFont"),rsvisual("PhotoNameSize"),rsvisual("PhotoNameBold"),rsvisual("PhotoNameItalic"),rsvisual("PhotoNameColor"),rsvisual("PhotoNameDirection"),rsvisual("AddDate"),rsvisual("DateLeft"),rsvisual("DateTop"),rsvisual("DateFont"),rsvisual("DateSize"),rsvisual("DateBold"),rsvisual("DateItalic"),rsvisual("DateColor"),rsvisual("DateDirection"),UserCount,UserVisualSplit,LayerNo,OuterLeft,OuterTop,OuterWidth,OuterHeight,InnerLeft,InnerTop,InnerWidth,InnerHeight,Direction,UserNameSplit,NameLeft,NameTop,NameFont,NameSize,NameBold,NameItalic,NameColor,NameDirection,False,rsVisual("isUpload"),(rsVisual("Child")=1))
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle height=22>"
response.write "<td class=tablebody2 width=80 align=right>"
response.write "照片名称 "
response.write "</td>"
response.write "<td class=tablebody2 align=left>"
response.write " "&rsvisual("name")
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle height=22>"
response.write "<td class=tablebody2 width=80 align=right>"
response.write "发起时间 "
response.write "</td>"
response.write "<td class=tablebody2 align=left>"
response.write " "&formatdatetime(rsvisual("AddDate"),2)
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle height=22>"
response.write "<td class=tablebody2 width=80 align=right>"
response.write "参与者 "
response.write "</td>"
response.write "<td class=tablebody2 align=left>"
response.write " "&UserNameStr
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle height=22>"
response.write "<td class=tablebody2 width=80 align=right>"
response.write "照片URL "
response.write "</td>"
response.write "<td class=tablebody2 align=left>"
if not isnull(rsvisual("URL")) then response.write " <a href="&rsvisual("URL")&" target=_blank><font color=blue><b>查看和下载照片</b></font></a>"
response.write "</td>"
response.write "</tr>"
if shopid=597 or master then
response.write "<tr valign=middle height=22>"
response.write "<td class=tablebody2 width=80 align=right>"
response.write "操作 "
response.write "</td>"
response.write "<td class=tablebody2 align=left>"
response.write " <a href=Visual_photo.asp?action=delete&photoid="&rsvisual("ID")&" onclick=""javascript:if(confirm('您确定删除这张照片吗?')){return true;} return false;"">删除</a> <a href=Visual_photo.asp?action=recreate&photoid="&rsvisual("ID")&">重印</a>"
if lcase(trim(rsvisual("fromUser")))=lcase(trim(MemberName)) or master then
if rsvisual("status")=1 then
response.write " <a href=Visual_photo.asp?action=privatephoto&photoid="&rsvisual("ID")&">隐藏</a>"
else
response.write " <a href=Visual_photo.asp?action=publicphoto&photoid="&rsvisual("ID")&">公开</a>"
end if
end if
response.write "</td>"
response.write "</tr>"
end if
response.write "</table>"
response.write "</td>"
if curcount mod 2=0 then
response.write "</tr>"
end if
rsvisual.movenext
loop
set rsPhotoUser=nothing
rsvisual.close
end if
curcount=curcount+1
for i=curcount to 4
if i mod 2=1 then
response.write "<tr>"
else
response.write "<td width=14> </td>"
end if
response.write "<td width=290>"
response.write "<table width=290 border=0 cellspacing=2 cellpadding=0>"
response.write "<tr valign=middle height=150>"
response.write "<td class=tablebody2 align=center colspan=2>"
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle height=22>"
response.write "<td class=tablebody2 width=80 align=right>"
response.write "</td>"
response.write "<td class=tablebody2 align=left>"
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle height=22>"
response.write "<td class=tablebody2 width=80 align=right>"
response.write "</td>"
response.write "<td class=tablebody2 align=left>"
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle height=22>"
response.write "<td class=tablebody2 width=80 align=right>"
response.write "</td>"
response.write "<td class=tablebody2 align=left>"
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle height=22>"
response.write "<td class=tablebody2 width=80 align=right>"
response.write "</td>"
response.write "<td class=tablebody2 align=left>"
response.write "</td>"
response.write "</tr>"
if shopid=597 or master then
response.write "<tr valign=middle height=22>"
response.write "<td class=tablebody2 width=80 align=right>"
response.write "</td>"
response.write "<td class=tablebody2 align=left>"
response.write "</td>"
response.write "</tr>"
end if
response.write "</table>"
response.write "</td>"
if i mod 2=0 then
response.write "</tr>"
end if
next
response.write "</table>"
if flag then
response.write "</td>"
response.write "</tr>"
response.write "</table>"
end if
response.write "<table width=590 border=0 cellspacing=0 cellpadding=0>"
response.write "<tr height=25 valign=middle>"
response.write "<td valign=middle class=tablebody1> 页次：<b>"&curPage&"</b> / <b>"&pagecount&"</b> 页 每页：<b>4</b> 共计：<b>"&totalrec&"</b></td>"
response.write "<td valign=middle class=tablebody1 align=right>分页："
call DispPageNum(curpage,pagecount,"?shopid="&shopid&"&sex="&sex&"&page=","#VisualTop")
response.write " </td>"
response.write "</tr>"
response.write "</table>"
end if
response.write "<br>"
end if
response.write "</td>"
response.write "</tr>"
response.write "</table>"
set rsvisual=nothing
end sub
sub DispPhotoList(ListMethod)
dim totalrec,pagecount,curcount
response.write "<table border=0 cellspacing=1 cellpadding=0 width=95% >"
response.write "<tr height=25 valign=middle>"
response.write "<th colspan=6>"&webname&"照相馆 - "
select case ListMethod
case 1
response.write "发出的请求"
case 2
response.write "收到的请求"
case 3
response.write "确认的请求"
end select
response.write "</th>"
response.write "</tr>"
response.write "<tr valign=middle height=50>"
response.write "<td class=tablebody2 colspan=6 align=center>"
select case ListMethod
case 1
response.write "下列请求尚未被所有参与者确认，过期未被确认的请求将被系统自动删除！"
case 2
response.write "下列是希望与您合影的请求，这些请求必须等待您和其他参与者的确认方可，请点击名称后确认请求。"
case 3
response.write "下列您发出的请求已经被所有参与者确认了，请点击名称修改照片的设计。"
end select
response.write "</td>"
response.write "</tr>"
response.write "<tr height=25 valign=middle>"
response.write "<th width=""*"">名称</th>"
response.write "<th width=""15%"">发起人</th>"
response.write "<th width=""10%"">状态</th>"
response.write "<th width=""12%"">发起时间</th>"
response.write "<th width=""12%"">过期时间</th>"
response.write "<th width=""15%"">参与者</th>"
response.write "</tr>"
dim rsphotouser
set rsphotouser=server.createobject("adodb.recordset")
select case ListMethod
case 1
sqlvisual="select id,name,status,adddate,enddate,fromuser from visual_photo where fromuser='"&MemberName&"' and not confirmed"
case 2
sqlvisual="select p.id,p.name,p.status,p.adddate,p.enddate,p.fromuser from visual_photouser u inner join visual_photo p on u.photo_id=p.id where p.fromuser<>'"&MemberName&"' and not p.confirmed and u.username='"&MemberName&"'"
case 3
sqlvisual="select p.id,p.name,p.status,p.adddate,p.enddate,p.fromuser from visual_photouser u inner join visual_photo p on u.photo_id=p.id where u.username='"&MemberName&"' and p.confirmed and not p.finished"
end select
rsvisual.open sqlvisual,conn,1,1
totalrec=rsvisual.recordcount
if totalrec mod 10=0 then
pagecount=totalrec \ 10
else
pagecount=totalrec \ 10+1
end if
curcount=0
if rsvisual.eof or rsvisual.bof then
response.write "<tr valign=middle height=30><td class=tablebody2 colspan=6 align=center>"
select case ListMethod
case 1
response.write "尚未发出任何合影的请求或所有的请求都已得到确认了。"
case 2
response.write "没有收到任何合影的请求或所有的请求都已被您确认了。"
case 3
response.write "没有任何确认完毕并等待完成的合影请求或个人写真。"
end select
response.write "</td></tr>"
else
if curpage > pagecount then curpage = pagecount
if curpage < 1 then curpage=1
Rsvisual.PageSize=10
Rsvisual.AbsolutePage=CurPage
do while not rsvisual.eof and curcount<10
curcount=curcount+1
response.write "<tr height=25 valign=middle>"
response.write "<td class=tablebody2>"
response.write " <a href=""Visual.asp?shopid="
select case ListMethod
case 1
response.write "297"
case 2
response.write "397"
case 3
response.write "497"
end select
response.write "&photoid="&rsvisual(0)&""">"&rsvisual(1)&"</a>"
response.write "</td>"
response.write "<td class=tablebody2 align=center>"
sqlvisual="select username,confirmed,confirmtime,finished from visual_photouser where photo_id="&rsvisual(0)&" and username='"&rsvisual(5)&"'"
rsphotouser.open sqlvisual,conn,1,1
response.write "<a href=""dispuser.asp?Username="&rsvisual(5)&""" target=_blank title="""
if ListMethod=3 then
if rsphotouser(3) then
response.write "已经完成照片的设计"
else
response.write "尚未完成照片的设计"
end if
else
if rsphotouser(1) then
response.write "已于"&formatdatetime(rsphotouser(2),2)&"确认"
else
response.write "尚未确认"
end if
end if
response.write """>"
if ListMethod=3 then
if not rsphotouser(3) then
response.write "<font style='font-size:12px' >"
end if
else
if not rsphotouser(1) then
response.write "<font style='font-size:12px' >"
end if
end if
response.write rsvisual(5)
if ListMethod=3 then
if not rsphotouser(3) then
response.write "</font>"
end if
else
if not rsphotouser(1) then
response.write "</font>"
end if
end if
response.write "</a>"
rsphotouser.close
response.write "</td>"
response.write "<td class=tablebody2 align=center>"
if rsvisual(2)=1 then
response.write "公开"
else
response.write "保密"
end if
response.write "</td>"
response.write "<td class=tablebody2 align=center>"
response.write formatdatetime(rsvisual(3),2)
response.write "</td>"
response.write "<td class=tablebody2 align=center>"
response.write formatdatetime(rsvisual(4),2)
response.write "</td>"
response.write "<td class=tablebody2 align=center>"
sqlvisual="select username,confirmed,confirmtime,finished from visual_photouser where photo_id="&rsvisual(0)&" and username<>'"&rsvisual(5)&"'"
rsphotouser.open sqlvisual,conn,1,1
if not rsphotouser.eof then
do while not rsphotouser.eof
response.write "<a href=""dispuser.asp?Username="&rsphotouser(0)&""" target=_blank title="""
if ListMethod=3 then
if rsphotouser(3) then
response.write "已经同意照片的设计"
else
response.write "尚未同意照片的设计"
end if
else
if rsphotouser(1) then
response.write "已于"&formatdatetime(rsphotouser(2),2)&"确认"
else
response.write "尚未确认"
end if
end if
response.write """>"
if ListMethod=3 then
if not rsphotouser(3) then
response.write "<font style='font-size:12px' >"
end if
else
if not rsphotouser(1) then
response.write "<font style='font-size:12px' >"
end if
end if
response.write rsphotouser(0)
if ListMethod=3 then
if not rsphotouser(3) then
response.write "</font>"
end if
else
if not rsphotouser(1) then
response.write "</font>"
end if
end if
response.write "</a>"
rsphotouser.movenext
if not rsphotouser.eof then response.write "<br>"
loop
else
response.write "<font color=gray>个人写真</font>"
end if
rsphotouser.close
response.write "</td>"
response.write "</tr>"
rsvisual.movenext
loop
rsvisual.close
end if
response.write "</table>"
response.write "<table width=95% border=0 cellspacing=0 cellpadding=0>"
response.write "<tr height=25 valign=middle>"
response.write "<td valign=middle class=tablebody1> 页次：<b>"&curPage&"</b> / <b>"&pagecount&"</b> 页 每页：<b>10</b> 共计：<b>"&totalrec&"</b></td>"
response.write "<td valign=middle class=tablebody1 align=right>分页："
call DispPageNum(curpage,pagecount,"?shopid="&shopid&"&sex="&sex&"&page=","#VisualTop")
response.write " </td>"
response.write "</tr>"
response.write "</table>"
end sub
sub DispPhoto(ListMethod)
dim photoid,subtype,photoname,photomsg,fromuser,photostatus,bgwidth,bgheight,photobg,photoBodyBack,photoBodyFore,photoFg
dim usercount,uservisualsplit(),usernamesplit(),LeftPos,StepPos,FinishDate,PhotoDate
dim PhotoNameLeft,PhotoNameTop,PhotoNameFont,PhotoNameSize,PhotoNameBold,PhotoNameItalic,PhotoNameColor,PhotoNameDirection
dim DateLeft,DateTop,DateFont,DateSize,DateBold,DateItalic,DateColor,DateDirection
dim NameLeft(),NameTop(),NameFont(),NameSize(),NameBold(),NameItalic(),NameColor(),NameDirection()
dim OuterLeft(),OuterTop(),OuterWidth(),OuterHeight()
dim InnerLeft(),InnerTop(),InnerWidth(),InnerHeight()
dim LayerNo(),Direction()
dim hasFinished,isUpload
FinishDate=Null
hasFinished=False
select case ListMethod
case 0
response.write "<form action=""Visual_photo.asp"" method=post name=photo_request>"
response.write "<input type=hidden name=""action"" value=""send"">"
if request.cookies("myshow_"&userid)="" then
response.write "<input type=hidden name=""fromvisual"" value="""&v_myVisual&""">"
else
response.write "<input type=hidden name=""fromvisual"" value="""&request.cookies("myshow_"&userid)&""">"
end if
response.write "<input type=hidden name=""bgwidth"" value=""280"">"
response.write "<input type=hidden name=""bgheight"" value=""150"">"
subtype="发送新请求"
photoname=""
photomsg=""
usercount=1
redim uservisualsplit(0)
redim usernamesplit(0)
if request.cookies("myshow_"&userid)="" then
uservisualsplit(0)=v_myvisual
else
uservisualsplit(0)=request.cookies("myshow_"&userid)
end if
usernamesplit(0)=MemberName
bgwidth=260
bgheight=150
photobg=""
photoBodyBack=""
photoBodyFore=""
photoFg=""
PhotoDate=now()
isUpload=false
case 1
photoid=checkstr(trim(request("photoid")))
sqlvisual="select * from visual_photo where id="&photoid
rsvisual.open sqlvisual,conn,1,1
subtype="发出的请求"
photoname=rsvisual("name")
photomsg=rsvisual("content")
fromuser=rsvisual("fromuser")
photostatus=rsvisual("status")
bgwidth=rsvisual("width")
bgheight=rsvisual("height")
photobg=rsvisual("background")
photoBodyBack=rsvisual("BackBody")
photoBodyFore=rsvisual("ForeBody")
photoFg=rsvisual("Foreground")
PhotoDate=rsvisual("adddate")
isUpload=rsvisual("isupload")
rsvisual.close
case 2
response.write "<form action=""Visual_photo.asp"" method=post name=photo_confirm>"
response.write "<input type=hidden name=""action"" value=""confirm"">"
if request.cookies("myshow_"&userid)="" then
response.write "<input type=hidden name=""uservisual"" value="""&v_myvisual&""">"
else
response.write "<input type=hidden name=""uservisual"" value="""&request.cookies("myshow_"&userid)&""">"
end if
photoid=checkstr(trim(request("photoid")))
response.write "<input type=hidden name=""photoid"" value="""&photoid&""">"
sqlvisual="select * from visual_photo where id="&photoid
rsvisual.open sqlvisual,conn,1,1
subtype="收到的请求"
photoname=rsvisual("name")
photomsg=rsvisual("content")
fromuser=rsvisual("fromuser")
photostatus=rsvisual("status")
bgwidth=rsvisual("width")
bgheight=rsvisual("height")
photobg=rsvisual("background")
photoBodyBack=rsvisual("BackBody")
photoBodyFore=rsvisual("ForeBody")
photoFg=rsvisual("Foreground")
PhotoDate=rsvisual("adddate")
isUpload=rsvisual("isupload")
rsvisual.close
case 3
response.write "<form action=""Visual_photo.asp"" method=post name=photo_design>"
photoid=checkstr(trim(request("photoid")))
response.write "<input type=hidden name=""photoid"" value="""&photoid&""">"
sqlvisual="select * from visual_photo where id="&photoid
rsvisual.open sqlvisual,conn,1,1
subtype="确认的请求"
photoname=rsvisual("name")
photomsg=rsvisual("content")
fromuser=rsvisual("fromuser")
photostatus=rsvisual("status")
bgwidth=rsvisual("width")
bgheight=rsvisual("height")
photobg=rsvisual("background")
photoBodyBack=rsvisual("BackBody")
photoBodyFore=rsvisual("ForeBody")
photoFg=rsvisual("Foreground")
FinishDate=rsvisual("FinishDate")
PhotoDate=rsvisual("adddate")
isUpload=rsvisual("isupload")
if not isnull(FinishDate) then
PhotoNameLeft=rsvisual("PhotoNameLeft")
PhotoNameTop=rsvisual("PhotoNameTop")
PhotoNameFont=rsvisual("PhotoNameFont")
PhotoNameSize=rsvisual("PhotoNameSize")
PhotoNameBold=rsvisual("PhotoNameBold")
PhotoNameItalic=rsvisual("PhotoNameItalic")
PhotoNameColor=rsvisual("PhotoNameColor")
PhotoNameDirection=rsvisual("PhotoNameDirection")
DateLeft=rsvisual("DateLeft")
DateTop=rsvisual("DateTop")
DateFont=rsvisual("DateFont")
DateSize=rsvisual("DateSize")
DateBold=rsvisual("DateBold")
DateItalic=rsvisual("DateItalic")
DateColor=rsvisual("DateColor")
DateDirection=rsvisual("DateDirection")
end if
rsvisual.close
if lcase(trim(MemberName))=lcase(trim(fromuser)) then
response.write "<input type=hidden name=""action"" value=""design"">"
response.write "<input type=hidden name=""PhotoNameLeft"" value="""&PhotoNameLeft&""">"
response.write "<input type=hidden name=""PhotoNameTop"" value="""&PhotoNameTop&""">"
response.write "<input type=hidden name=""PhotoNameFont"" value="""&PhotoNameFont&""">"
response.write "<input type=hidden name=""PhotoNameSize"" value="""&PhotoNameSize&""">"
if PhotoNameBold then
response.write "<input type=hidden name=""PhotoNameBold"" value=""1"">"
else
response.write "<input type=hidden name=""PhotoNameBold"" value=""1"">"
end if
if PhotoNameItalic then
response.write "<input type=hidden name=""PhotoNameItalic"" value=""1"">"
else
response.write "<input type=hidden name=""PhotoNameItalic"" value=""1"">"
end if
response.write "<input type=hidden name=""PhotoNameColor"" value="""&PhotoNameColor&""">"
response.write "<input type=hidden name=""PhotoNameDirection"" value="""&PhotoNameDirection&""">"
response.write "<input type=hidden name=""DateLeft"" value="""&DateLeft&""">"
response.write "<input type=hidden name=""DateTop"" value="""&DateTop&""">"
response.write "<input type=hidden name=""DateFont"" value="""&DateFont&""">"
response.write "<input type=hidden name=""DateSize"" value="""&DateSize&""">"
if DateBold then
response.write "<input type=hidden name=""DateBold"" value=""1"">"
else
response.write "<input type=hidden name=""DateBold"" value=""1"">"
end if
if DateItalic then
response.write "<input type=hidden name=""DateItalic"" value=""1"">"
else
response.write "<input type=hidden name=""DateItalic"" value=""1"">"
end if
response.write "<input type=hidden name=""DateColor"" value="""&DateColor&""">"
response.write "<input type=hidden name=""DateDirection"" value="""&DateDirection&""">"
else
response.write "<input type=hidden name=""action"" value=""accept"">"
end if
end select
if isnull(FinishDate) then
PhotoNameLeft=0
PhotoNameTop=186
PhotoNameFont="宋体"
PhotoNameSize="9pt"
PhotoNameBold=false
PhotoNameItalic=false
PhotoNameColor="#FFFFFF"
PhotoNameDirection=0
DateLeft=0
DateTop=206
DateFont="宋体"
DateSize="9pt"
DateBold=false
DateItalic=false
DateColor="#FFFFFF"
DateDirection=0
end if
response.write "<table border=0 cellspacing=1 cellpadding=0 width=95% >"
response.write "<tr height=25 valign=middle>"
response.write "<th valign=middle colspan=2>"&webname&"照相馆 - "&subtype&"</th>"
response.write "</tr>"
response.write "<tr valign=middle height=30>"
response.write "<td width=15% class=tablebody2 align=right>合影的名称：</td>"
response.write "<td align=left class=tablebody2> "
if ListMethod=0 then
response.write "<input type=text name=photoname size=50 maxlength=50>"
else
response.write "<b>"&photoname&"</b>"
end if
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle height=90>"
response.write "<td width=15% class=tablebody2 align=right>请求的内容：</td>"
response.write "<td align=left class=tablebody2> <textarea rows=5 cols=80 name=photomsg"
if ListMethod<>0 then
response.write " Readonly"
end if
response.write ">"&htmlencode(FilterJS(photomsg))&"</textarea></td>"
response.write "</tr>"
if ListMethod<>0 then
response.write "<tr valign=middle height=30>"
response.write "<td width=15% class=tablebody2 align=right>发起者：</td>"
response.write "<td align=left class=tablebody2> <a href=""dispuser.asp?Username="&fromuser&""" target=_blank><b>"&fromuser&"</b></a></td>"
response.write "</tr>"
end if
response.write "<tr valign=middle height=30>"
response.write "<td width=15% class=tablebody2 align=right>参与者：</td>"
response.write "<td align=left class=tablebody2> "
if ListMethod=0 then
response.write "<input type=text name=photouser size=""50"">"
else
response.write "<b>"
sqlvisual="select * from visual_photouser where photo_id="&photoid
rsvisual.open sqlvisual,conn,1,1
usercount=0
do while not rsvisual.eof
if rsvisual("confirmed") then
if not isnull(rsvisual("uservisual")) and rsvisual("uservisual")<>"" then
redim preserve uservisualsplit(usercount)
uservisualsplit(usercount)=rsvisual("uservisual")
redim preserve usernamesplit(usercount)
usernamesplit(usercount)=rsvisual("username")
if not isNull(FinishDate) then
redim preserve LayerNo(UserCount)
redim preserve OuterLeft(UserCount)
redim preserve OuterTop(UserCount)
redim preserve OuterWidth(UserCount)
redim preserve OuterHeight(UserCount)
redim preserve InnerLeft(UserCount)
redim preserve InnerTop(UserCount)
redim preserve InnerWidth(UserCount)
redim preserve InnerHeight(UserCount)
redim preserve Direction(UserCount)
redim preserve NameLeft(UserCount)
redim preserve NameTop(UserCount)
redim preserve NameFont(UserCount)
redim preserve NameSize(UserCount)
redim preserve NameBold(UserCount)
redim preserve NameItalic(UserCount)
redim preserve NameColor(UserCount)
redim preserve NameDirection(UserCount)
LayerNo(UserCount)=rsvisual("LayerNo")
OuterLeft(UserCount)=rsvisual("OuterLeft")
OuterTop(UserCount)=rsvisual("OuterTop")
OuterWidth(UserCount)=rsvisual("OuterWidth")
OuterHeight(UserCount)=rsvisual("OuterHeight")
InnerLeft(UserCount)=rsvisual("InnerLeft")
InnerTop(UserCount)=rsvisual("InnerTop")
InnerWidth(UserCount)=rsvisual("InnerWidth")
InnerHeight(UserCount)=rsvisual("InnerHeight")
Direction(UserCount)=rsvisual("Direction")
NameLeft(UserCount)=rsvisual("NameLeft")
NameTop(UserCount)=rsvisual("NameTop")
NameFont(UserCount)=rsvisual("NameFont")
NameSize(UserCount)=rsvisual("NameSize")
NameBold(UserCount)=rsvisual("NameBold")
NameItalic(UserCount)=rsvisual("NameItalic")
NameColor(UserCount)=rsvisual("NameColor")
NameDirection(UserCount)=rsvisual("NameDirection")
if lcase(trim(rsvisual("UserName")))=lcase(trim(MemberName)) then hasFinished=rsvisual("Finished")
end if
usercount=usercount+1
end if
end if
if lcase(trim(rsvisual("username")))<>lcase(trim(fromuser)) then
response.write "<a href=""dispuser.asp?Username="&rsvisual("username")&""" target=_blank>"&rsvisual("username")&"</a>"
rsvisual.movenext
if not rsvisual.eof then response.write ","
else
rsvisual.movenext
end if
loop
rsvisual.close
response.write "</b>"
end if
StepPos=70
if bgwidth+70<140*usercount-(usercount-1)*StepPos then
LeftPos=-35
StepPos=(140*usercount-(bgwidth+70))/(usercount-1)
else
LeftPos=((bgwidth+70)-(140*usercount-(usercount-1)*StepPos))\2-35
end if
if isNull(FinishDate) then
redim preserve LayerNo(UserCount-1)
redim preserve OuterLeft(UserCount-1)
redim preserve OuterTop(UserCount-1)
redim preserve OuterWidth(UserCount-1)
redim preserve OuterHeight(UserCount-1)
redim preserve InnerLeft(UserCount-1)
redim preserve InnerTop(UserCount-1)
redim preserve InnerWidth(UserCount-1)
redim preserve InnerHeight(UserCount-1)
redim preserve Direction(UserCount-1)
redim preserve NameLeft(UserCount-1)
redim preserve NameTop(UserCount-1)
redim preserve NameFont(UserCount-1)
redim preserve NameSize(UserCount-1)
redim preserve NameBold(UserCount-1)
redim preserve NameItalic(UserCount-1)
redim preserve NameColor(UserCount-1)
redim preserve NameDirection(UserCount-1)
for i=0 to usercount-1
LayerNo(i)=i*20+10
OuterLeft(i)=int(LeftPos+(140-StepPos)*i)
OuterTop(i)=(bgheight-150)\2
OuterWidth(i)=120
OuterHeight(i)=150
InnerLeft(i)=0
InnerTop(i)=0
InnerWidth(i)=120
InnerHeight(i)=150
Direction(i)=0
NameLeft(i)=OuterLeft(i)+35
NameTop(i)=0
NameFont(i)="宋体"
NameSize(i)="9pt"
NameBold(i)=False
NameItalic(i)=False
NameColor(i)="#FFFFFF"
NameDirection(i)=0
next
end if
redim preserve UserVisualSplit(UserCount+5)
redim preserve OuterLeft(UserCount+5)
redim preserve OuterTop(UserCount+5)
redim preserve OuterWidth(UserCount+5)
redim preserve OuterHeight(UserCount+5)
redim preserve InnerLeft(UserCount+5)
redim preserve InnerTop(UserCount+5)
redim preserve InnerWidth(UserCount+5)
redim preserve InnerHeight(UserCount+5)
redim preserve Direction(UserCount+5)
for i=0 to 5
UserVisualSplit(UserCount+i)=""
OuterLeft(UserCount+i)=0
OuterTop(UserCount+i)=0
OuterWidth(UserCount+i)=120
OuterHeight(UserCount+i)=150
InnerLeft(UserCount+i)=0
InnerTop(UserCount+i)=0
InnerWidth(UserCount+i)=120
InnerHeight(UserCount+i)=150
Direction(UserCount+i)=0
next
if ListMethod=3 and not isNull(FinishDate) then
dim rsPhotoUser
set rsPhotoUser=server.createobject("ADODB.recordset")
sqlvisual="select * from visual_Accouterment where photo_id="&PhotoID
rsPhotoUser.open sqlvisual,conn,1,1
do while not rsPhotoUser.eof
i=rsPhotoUser("SeqNo")
uservisualsplit(UserCount+i)=rsPhotoUser("ItemPicPath")
OuterLeft(UserCount+i)=rsPhotoUser("OuterLeft")
OuterTop(UserCount+i)=rsPhotoUser("OuterTop")
OuterWidth(UserCount+i)=rsPhotoUser("OuterWidth")
OuterHeight(UserCount+i)=rsPhotoUser("OuterHeight")
InnerLeft(UserCount+i)=rsPhotoUser("InnerLeft")
InnerTop(UserCount+i)=rsPhotoUser("InnerTop")
InnerWidth(UserCount+i)=rsPhotoUser("InnerWidth")
InnerHeight(UserCount+i)=rsPhotoUser("InnerHeight")
Direction(UserCount+i)=rsPhotoUser("Direction")
rsPhotoUser.movenext
loop
rsPhotoUser.close
set rsPhotoUser=nothing
end if
if ListMethod=0 then
response.write " "
response.write "<SELECT name=friend onchange=DoTitle(this.options[this.selectedIndex].value)>"
response.write "<OPTION selected value="""">选择</OPTION>"
sqlvisual="select friend from Ms_Friend where username='"&MemberName&"' order by addtime desc"
rsvisual.open sqlvisual,conn,1,1
do while not rsvisual.eof
response.write "<OPTION value="""&rsvisual(0)&""">"&rsvisual(0)&"</OPTION>"
rsvisual.movenext
loop
rsvisual.close
response.write "</SELECT>"
end if
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle height=30>"
response.write "<td width=15% class=tablebody2 align=right>照片的状态：</td>"
response.write "<td align=left class=tablebody2> "
if ListMethod<>0 then
response.write "<b>"
if photostatus=1 then
response.write "公开"
else
response.write "保密"
end if
response.write "</b>"
else
response.write "<input type=radio name=photostatus value=""0"">保密 <input type=radio name=photostatus value=""1"" checked>公开"
response.write " <input type=checkbox name=photomyself value=""1"" onclick='if(this.checked){photo_request.photouser.disabled=true;photo_request.photouser.value="""";photo_request.friend.disabled=true;photo_request.photomsg.disabled=true;photo_request.photomsg.value="""";} else {photo_request.photouser.disabled=false;photo_request.friend.disabled=false;photo_request.photomsg.disabled=false;}'>个人写真"
if master then
response.write " <input type=checkbox name=forcephoto value=""1"">强制合影"
end if
end if
response.write "</td>"
response.write "</tr>"
if ListMethod=0 then
response.write "<tr valign=middle height=30>"
response.write "<td width=15% class=tablebody2 align=right>后部效果：</td>"
response.write "<td align=left class=tablebody2><table width=100% cellpadding=0 cellspacing=0 border=0><tr><td width=50% class=tablebody2>"
response.write " 背景："
response.write "<select name=photobg onchange='selBg(this.options[this.selectedIndex].value)'>"
response.write "<option value='' selected>空白背景</option><option value='0'>我的背景</option><option value='1'>上传的背景</option>"
if v_MyVip=1 then
sqlvisual="select id,name from visual_items where content='1' and type=0 order by id"
else
sqlvisual="select id,name from visual_items where content='1' and type=0 and not vip order by id"
end if
rsvisual.open sqlvisual,conn,1,1
do while not rsvisual.eof
if localpic=1 then
response.write "<option value='1/"&right("0000"&rsvisual(0),4)&".GIF'>"&rsvisual(1)&"</option>"
else
response.write "<option value='"&right("00000000"&rsvisual(0),8)&"/01/00/'>"&rsvisual(1)&"</option>"
end if
rsvisual.movenext
loop
rsvisual.close
response.write "</select></td>"
response.write "<td width=50% class=tablebody2> 身后："
response.write "<select name=photobodyback onchange='selBodyBack(this.options[this.selectedIndex].value)'>"
response.write "<option value='' selected>空白身后</option>"
if v_MyVip=1 then
sqlvisual="select id,name from visual_items where content='2' and type=0 order by id"
else
sqlvisual="select id,name from visual_items where content='2' and type=0 and not vip order by id"
end if
rsvisual.open sqlvisual,conn,1,1
do while not rsvisual.eof
if localpic=1 then
response.write "<option value='2/"&right("0000"&rsvisual(0),4)&".GIF'>"&rsvisual(1)&"</option>"
else
response.write "<option value='"&right("00000000"&rsvisual(0),8)&"/02/00/'>"&rsvisual(1)&"</option>"
end if
rsvisual.movenext
loop
rsvisual.close
response.write "</select></td></tr></table>"
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle height=30>"
response.write "<td width=15% class=tablebody2 align=right>前部效果：</td>"
response.write "<td align=left class=tablebody2><table width=100% cellpadding=0 cellspacing=0 border=0><tr><td width=50% class=tablebody2>"
response.write " 前景："
response.write "<select name=photofg onchange='selFg(this.options[this.selectedIndex].value)'>"
response.write "<option value='' selected>空白前景</option>"
if v_MyVip=1 then
sqlvisual="select id,name from visual_items where content='25' and type=0 order by id"
else
sqlvisual="select id,name from visual_items where content='25' and type=0 and not vip order by id"
end if
rsvisual.open sqlvisual,conn,1,1
do while not rsvisual.eof
if localpic=1 then
response.write "<option value='25/"&right("0000"&rsvisual(0),4)&".GIF'>"&rsvisual(1)&"</option>"
else
response.write "<option value='"&right("00000000"&rsvisual(0),8)&"/25/00/'>"&rsvisual(1)&"</option>"
end if
rsvisual.movenext
loop
rsvisual.close
response.write "</select></td>"
response.write "<td width=50% class=tablebody2> 身前："
response.write "<select name=photobodyfore onchange='selBodyFore(this.options[this.selectedIndex].value)'>"
response.write "<option value='' selected>空白身前</option>"
if v_MyVip=1 then
sqlvisual="select id,name from visual_items where content='24' and type=0 order by id"
else
sqlvisual="select id,name from visual_items where content='24' and type=0 and not vip order by id"
end if
rsvisual.open sqlvisual,conn,1,1
do while not rsvisual.eof
if localpic=1 then
response.write "<option value='24/"&right("0000"&rsvisual(0),4)&".GIF'>"&rsvisual(1)&"</option>"
else
response.write "<option value='"&right("00000000"&rsvisual(0),8)&"/24/00/'>"&rsvisual(1)&"</option>"
end if
rsvisual.movenext
loop
rsvisual.close
response.write "</select></td></tr></table>"
response.write "</td>"
response.write "</tr>"
response.write "<input type=hidden name=bgfname value="""">"
end if
response.write "<tr valign=middle height=240>"
response.write "<td colspan=2 class=tablebody2 align=center>"
call ShowVisualPhoto(bgWidth,bgHeight,PhotoBg,PhotoBodyBack,PhotoBodyFore,PhotoFg,PhotoName,PhotoNameLeft,PhotoNameTop,PhotoNameFont,PhotoNameSize,PhotoNameBold,PhotoNameItalic,PhotoNameColor,PhotoNameDirection,PhotoDate,DateLeft,DateTop,DateFont,DateSize,DateBold,DateItalic,DateColor,DateDirection,UserCount,UserVisualSplit,LayerNo,OuterLeft,OuterTop,OuterWidth,OuterHeight,InnerLeft,InnerTop,InnerWidth,InnerHeight,Direction,UserNameSplit,NameLeft,NameTop,NameFont,NameSize,NameBold,NameItalic,NameColor,NameDirection,True,isUpload,(UserCount=1 and ListMethod=3))
response.write "</td>"
response.write "</tr>"
if ListMethod=0 then
response.write "<tr valign=middle height=120>"
response.write "<td class=tablebody2 colspan=2> <b>说明</b>：<br> ① 可以用英文状态下的逗号将参与者隔开实现群发，最多<b>"&PhotoUserCount&"</b>个用户，超过的用户将被自动剔除<br> ② 名称最多<b>50</b>个字符，内容最多<b>300</b>个字符<br> ③ 合影请求的有效期为<b>"&PhotoPeriod&"</b>天，过期的请求将被自动删除<br> ④ 上传背景的图象文件必须为160*120<br> <font style='font-size:12px' >⑤ 每个参与者收取费用"
if isnull(v_myvip) or v_myvip<=1 then
response.write PhotoPrice1
else
response.write PhotoPrice2
end if
response.write "元(包括您自己)，您现在有现金"&mymoney&"元</font><br> ⑥ 如果您的请求没有被同意，所有费用作为短消息群发费用扣除，不再退还</td>"
response.write "</tr>"
elseif ListMethod=3 then
if lcase(trim(MemberName))=lcase(trim(fromuser)) then
response.write "<tr valign=middle height=30>"
response.write "<td colspan=2 class=tablebody2 align=center>"&vbNewLine
response.write "处理人物：<select name=SelBody onchange='selectBody(this.options[this.selectedIndex].value)'>"
response.write "<option value=''>不选择人物</option>"
for i=0 to usercount-1
response.write "<option value='"&i&"'>"&usernamesplit(i)&"</option>"
next
response.write "</select> "
response.write "处理名称：<select name=SelName onchange='selectName(this.options[this.selectedIndex].value)'>"
response.write "<option value=''>不选择名称</option>"
for i=0 to usercount-1
response.write "<option value='"&i&"'>"&usernamesplit(i)&"</option>"
next
response.write "<option value='-1'>合影的名称</option>"
response.write "<option value='-2'>合影的时间</option>"
response.write "</select>"
if usercount>1 then
response.write " 处理饰物：<select name=SelAccouterment onchange='selectAccouterment(this.options[this.selectedIndex].value)'>"
response.write "<option value=''>不选择饰物</option>"
response.write "<option value='0'>身后饰物一</option>"
response.write "<option value='1'>身后饰物二</option>"
response.write "<option value='2'>身后饰物三</option>"
response.write "<option value='3'>身前饰物一</option>"
response.write "<option value='4'>身前饰物二</option>"
response.write "<option value='5'>身前饰物三</option>"
response.write "</select>"
end if
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle height=30>"
response.write "<td colspan=2 class=tablebody2 align=center>"
response.write "操作：<input type=radio name=photo_mode value=0 checked disabled=true>移动 <input type=radio name=photo_mode value=1 disabled=true>左上剪裁 <input type=radio name=photo_mode value=2 disabled=true>右下剪裁 <input type=radio name=photo_mode value=3 disabled=true>放缩 <font style='font-size:12px' >使用Ctrl和方向键操作</font>"
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle height=30>"
response.write "<td colspan=2 class=tablebody2 align=center>"
if UserCount>1 then
response.write "<select name=accouterment onchange='setAccouterment(this.options[this.selectedIndex].value)' disabled=true>"
response.write "<option value=''>不使用饰物</option>"
if v_myVip=1 then
sqlvisual="select id,name,content from visual_items where type in ("&AccoutermentType&") order by id"
else
sqlvisual="select id,name,content from visual_items where type in ("&AccoutermentType&") and not vip order by id"
end if
rsvisual.open sqlvisual,conn,1,1
do while not rsvisual.eof
if localpic=1 then
response.write "<option value='"&(split(rsvisual(2),"_")(0))&"/"&right("0000"&rsvisual(0),4)&".GIF'>"&rsvisual(1)&"</option>"
else
response.write "<option value='"&right("00000000"&rsvisual(0),8)&"/"&right("00"&(split(rsvisual(2),"_")(0)),2)&"/00/'>"&rsvisual(1)&"</option>"
end if
rsvisual.movenext
loop
rsvisual.close
response.write "</select> "
end if
response.write "<input type=button name=photo_front value=""向前"" disabled=true onclick='forward()'> <input type=button name=photo_rear value=""向后"" disabled=true onclick='reverse()'>"
response.write " 旋转：<input type=radio name=rot_deg value=""0"" checked disabled=true onclick='selectRotation(this.value)'>0度 <input type=radio name=rot_deg value=""1"" disabled=true onclick='selectRotation(this.value)'>90度 <input type=radio name=rot_deg value=""2"" disabled=true onclick='selectRotation(this.value)'>180度 <input type=radio name=rot_deg value=""3"" disabled=true onclick='selectRotation(this.value)'>270度 <input type=checkbox name=mirror value=""0"" disabled=true onclick='selectMirror()'>反转"
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle height=30>"
response.write "<td colspan=2 class=tablebody2 align=center>"
response.write "字体：<SELECT name=selFont onchange='selectFont(this.options[this.selectedIndex].value)' disabled=true>"
response.write "<option value=""宋体"" selected>宋体</option>"
response.write "<option value=""仿宋_GB2312"">仿宋</option>"
response.write "<option value=""楷体_GB2312"">楷体</option>"
response.write "<option value=""黑体"">黑体</option>"
response.write "<option value=""隶书"">隶书</option>"
response.write "<OPTION value=""Arial"">Arial</OPTION> "
response.write "<OPTION value=""Arial Black"">Arial Black</OPTION>"
response.write "<OPTION value=""Comic Sans MS"">Comic Sans MS</OPTION>"
response.write "<OPTION value=""Courier New"">Courier New</OPTION>"
response.write "<OPTION value=""Georgia"">Georgia</OPTION>"
response.write "<OPTION value=""Impact"">Impact</OPTION>"
response.write "<OPTION value=""Tahoma"">Tahoma</OPTION>"
response.write "<OPTION value=""Times New Roman"">Times New Roman</OPTION>"
response.write "<OPTION value=""Trebuchet MS"">Trebuchet MS</OPTION>"
response.write "<OPTION value=""Script MT Bold"">Script MT Bold</OPTION>"
response.write "<OPTION value=""Verdana"">Verdana</OPTION>"
response.write "<OPTION value=""Lucida Console"">Lucida Console</OPTION>"
response.write "</SELECT> "
response.write "大小：<select name=selSize onChange='selectSize(this.options[this.selectedIndex].value)' disabled=true>"
response.write "<option value=""6pt"">6pt</option>"
response.write "<option value=""7pt"">7pt</option>"
response.write "<option value=""8pt"">8pt</option>"
response.write "<option value=""9pt"" selected>9pt</option>"
response.write "<option value=""10pt"">10pt</option>"
response.write "<option value=""11pt"">11pt</option>"
response.write "<option value=""12pt"">12pt</option>"
response.write "<option value=""14pt"">14pt</option>"
response.write "<option value=""16pt"">16pt</option>"
response.write "<option value=""18pt"">18pt</option>"
response.write "<option value=""20pt"">20pt</option>"
response.write "<option value=""24pt"">24pt</option>"
response.write "</select> "
response.write "颜色：<SELECT name=selColor onchange='selectColor(this.options[this.selectedIndex].value)' disabled=true>"
response.write "<option value="""">隐藏</option>"
response.write "<option style=""background-color:#F0F8FF;color: #F0F8FF"" value=""#F0F8FF"">#F0F8FF</option>"
response.write "<option style=""background-color:#FAEBD7;color: #FAEBD7"" value=""#FAEBD7"">#FAEBD7</option>"
response.write "<option style=""background-color:#00FFFF;color: #00FFFF"" value=""#00FFFF"">#00FFFF</option>"
response.write "<option style=""background-color:#7FFFD4;color: #7FFFD4"" value=""#7FFFD4"">#7FFFD4</option>"
response.write "<option style=""background-color:#F0FFFF;color: #F0FFFF"" value=""#F0FFFF"">#F0FFFF</option>"
response.write "<option style=""background-color:#F5F5DC;color: #F5F5DC"" value=""#F5F5DC"">#F5F5DC</option>"
response.write "<option style=""background-color:#FFE4C4;color: #FFE4C4"" value=""#FFE4C4"">#FFE4C4</option>"
response.write "<option style=""background-color:#000000;color: #000000"" value=""#000000"">#000000</option>"
response.write "<option style=""background-color:#FFEBCD;color: #FFEBCD"" value=""#FFEBCD"">#FFEBCD</option>"
response.write "<option style=""background-color:#0000FF;color: #0000FF"" value=""#0000FF"">#0000FF</option>"
response.write "<option style=""background-color:#8A2BE2;color: #8A2BE2"" value=""#8A2BE2"">#8A2BE2</option>"
response.write "<option style=""background-color:#A52A2A;color: #A52A2A"" value=""#A52A2A"">#A52A2A</option>"
response.write "<option style=""background-color:#DEB887;color: #DEB887"" value=""#DEB887"">#DEB887</option>"
response.write "<option style=""background-color:#5F9EA0;color: #5F9EA0"" value=""#5F9EA0"">#5F9EA0</option>"
response.write "<option style=""background-color:#7FFF00;color: #7FFF00"" value=""#7FFF00"">#7FFF00</option>"
response.write "<option style=""background-color:#D2691E;color: #D2691E"" value=""#D2691E"">#D2691E</option>"
response.write "<option style=""background-color:#FF7F50;color: #FF7F50"" value=""#FF7F50"">#FF7F50</option>"
response.write "<option style=""background-color:#6495ED;color: #6495ED"" value=""#6495ED"">#6495ED</option>"
response.write "<option style=""background-color:#FFF8DC;color: #FFF8DC"" value=""#FFF8DC"">#FFF8DC</option>"
response.write "<option style=""background-color:#DC143C;color: #DC143C"" value=""#DC143C"">#DC143C</option>"
response.write "<option style=""background-color:#00FFFF;color: #00FFFF"" value=""#00FFFF"">#00FFFF</option>"
response.write "<option style=""background-color:#00008B;color: #00008B"" value=""#00008B"">#00008B</option>"
response.write "<option style=""background-color:#008B8B;color: #008B8B"" value=""#008B8B"">#008B8B</option>"
response.write "<option style=""background-color:#B8860B;color: #B8860B"" value=""#B8860B"">#B8860B</option>"
response.write "<option style=""background-color:#A9A9A9;color: #A9A9A9"" value=""#A9A9A9"">#A9A9A9</option>"
response.write "<option style=""background-color:#006400;color: #006400"" value=""#006400"">#006400</option>"
response.write "<option style=""background-color:#BDB76B;color: #BDB76B"" value=""#BDB76B"">#BDB76B</option>"
response.write "<option style=""background-color:#8B008B;color: #8B008B"" value=""#8B008B"">#8B008B</option>"
response.write "<option style=""background-color:#556B2F;color: #556B2F"" value=""#556B2F"">#556B2F</option>"
response.write "<option style=""background-color:#FF8C00;color: #FF8C00"" value=""#FF8C00"">#FF8C00</option>"
response.write "<option style=""background-color:#9932CC;color: #9932CC"" value=""#9932CC"">#9932CC</option>"
response.write "<option style=""background-color:#8B0000;color: #8B0000"" value=""#8B0000"">#8B0000</option>"
response.write "<option style=""background-color:#E9967A;color: #E9967A"" value=""#E9967A"">#E9967A</option>"
response.write "<option style=""background-color:#8FBC8F;color: #8FBC8F"" value=""#8FBC8F"">#8FBC8F</option>"
response.write "<option style=""background-color:#483D8B;color: #483D8B"" value=""#483D8B"">#483D8B</option>"
response.write "<option style=""background-color:#2F4F4F;color: #2F4F4F"" value=""#2F4F4F"">#2F4F4F</option>"
response.write "<option style=""background-color:#00CED1;color: #00CED1"" value=""#00CED1"">#00CED1</option>"
response.write "<option style=""background-color:#9400D3;color: #9400D3"" value=""#9400D3"">#9400D3</option>"
response.write "<option style=""background-color:#FF1493;color: #FF1493"" value=""#FF1493"">#FF1493</option>"
response.write "<option style=""background-color:#00BFFF;color: #00BFFF"" value=""#00BFFF"">#00BFFF</option>"
response.write "<option style=""background-color:#696969;color: #696969"" value=""#696969"">#696969</option>"
response.write "<option style=""background-color:#1E90FF;color: #1E90FF"" value=""#1E90FF"">#1E90FF</option>"
response.write "<option style=""background-color:#B22222;color: #B22222"" value=""#B22222"">#B22222</option>"
response.write "<option style=""background-color:#FFFAF0;color: #FFFAF0"" value=""#FFFAF0"">#FFFAF0</option>"
response.write "<option style=""background-color:#228B22;color: #228B22"" value=""#228B22"">#228B22</option>"
response.write "<option style=""background-color:#FF00FF;color: #FF00FF"" value=""#FF00FF"">#FF00FF</option>"
response.write "<option style=""background-color:#DCDCDC;color: #DCDCDC"" value=""#DCDCDC"">#DCDCDC</option>"
response.write "<option style=""background-color:#F8F8FF;color: #F8F8FF"" value=""#F8F8FF"">#F8F8FF</option>"
response.write "<option style=""background-color:#FFD700;color: #FFD700"" value=""#FFD700"">#FFD700</option>"
response.write "<option style=""background-color:#DAA520;color: #DAA520"" value=""#DAA520"">#DAA520</option>"
response.write "<option style=""background-color:#808080;color: #808080"" value=""#808080"">#808080</option>"
response.write "<option style=""background-color:#008000;color: #008000"" value=""#008000"">#008000</option>"
response.write "<option style=""background-color:#ADFF2F;color: #ADFF2F"" value=""#ADFF2F"">#ADFF2F</option>"
response.write "<option style=""background-color:#F0FFF0;color: #F0FFF0"" value=""#F0FFF0"">#F0FFF0</option>"
response.write "<option style=""background-color:#FF69B4;color: #FF69B4"" value=""#FF69B4"">#FF69B4</option>"
response.write "<option style=""background-color:#CD5C5C;color: #CD5C5C"" value=""#CD5C5C"">#CD5C5C</option>"
response.write "<option style=""background-color:#4B0082;color: #4B0082"" value=""#4B0082"">#4B0082</option>"
response.write "<option style=""background-color:#FFFFF0;color: #FFFFF0"" value=""#FFFFF0"">#FFFFF0</option>"
response.write "<option style=""background-color:#F0E68C;color: #F0E68C"" value=""#F0E68C"">#F0E68C</option>"
response.write "<option style=""background-color:#E6E6FA;color: #E6E6FA"" value=""#E6E6FA"">#E6E6FA</option>"
response.write "<option style=""background-color:#FFF0F5;color: #FFF0F5"" value=""#FFF0F5"">#FFF0F5</option>"
response.write "<option style=""background-color:#7CFC00;color: #7CFC00"" value=""#7CFC00"">#7CFC00</option>"
response.write "<option style=""background-color:#FFFACD;color: #FFFACD"" value=""#FFFACD"">#FFFACD</option>"
response.write "<option style=""background-color:#ADD8E6;color: #ADD8E6"" value=""#ADD8E6"">#ADD8E6</option>"
response.write "<option style=""background-color:#F08080;color: #F08080"" value=""#F08080"">#F08080</option>"
response.write "<option style=""background-color:#E0FFFF;color: #E0FFFF"" value=""#E0FFFF"">#E0FFFF</option>"
response.write "<option style=""background-color:#FAFAD2;color: #FAFAD2"" value=""#FAFAD2"">#FAFAD2</option>"
response.write "<option style=""background-color:#90EE90;color: #90EE90"" value=""#90EE90"">#90EE90</option>"
response.write "<option style=""background-color:#D3D3D3;color: #D3D3D3"" value=""#D3D3D3"">#D3D3D3</option>"
response.write "<option style=""background-color:#FFB6C1;color: #FFB6C1"" value=""#FFB6C1"">#FFB6C1</option>"
response.write "<option style=""background-color:#FFA07A;color: #FFA07A"" value=""#FFA07A"">#FFA07A</option>"
response.write "<option style=""background-color:#20B2AA;color: #20B2AA"" value=""#20B2AA"">#20B2AA</option>"
response.write "<option style=""background-color:#87CEFA;color: #87CEFA"" value=""#87CEFA"">#87CEFA</option>"
response.write "<option style=""background-color:#778899;color: #778899"" value=""#778899"">#778899</option>"
response.write "<option style=""background-color:#B0C4DE;color: #B0C4DE"" value=""#B0C4DE"">#B0C4DE</option>"
response.write "<option style=""background-color:#FFFFE0;color: #FFFFE0"" value=""#FFFFE0"">#FFFFE0</option>"
response.write "<option style=""background-color:#00FF00;color: #00FF00"" value=""#00FF00"">#00FF00</option>"
response.write "<option style=""background-color:#32CD32;color: #32CD32"" value=""#32CD32"">#32CD32</option>"
response.write "<option style=""background-color:#FAF0E6;color: #FAF0E6"" value=""#FAF0E6"">#FAF0E6</option>"
response.write "<option style=""background-color:#FF00FF;color: #FF00FF"" value=""#FF00FF"">#FF00FF</option>"
response.write "<option style=""background-color:#800000;color: #800000"" value=""#800000"">#800000</option>"
response.write "<option style=""background-color:#66CDAA;color: #66CDAA"" value=""#66CDAA"">#66CDAA</option>"
response.write "<option style=""background-color:#0000CD;color: #0000CD"" value=""#0000CD"">#0000CD</option>"
response.write "<option style=""background-color:#BA55D3;color: #BA55D3"" value=""#BA55D3"">#BA55D3</option>"
response.write "<option style=""background-color:#9370DB;color: #9370DB"" value=""#9370DB"">#9370DB</option>"
response.write "<option style=""background-color:#3CB371;color: #3CB371"" value=""#3CB371"">#3CB371</option>"
response.write "<option style=""background-color:#7B68EE;color: #7B68EE"" value=""#7B68EE"">#7B68EE</option>"
response.write "<option style=""background-color:#00FA9A;color: #00FA9A"" value=""#00FA9A"">#00FA9A</option>"
response.write "<option style=""background-color:#48D1CC;color: #48D1CC"" value=""#48D1CC"">#48D1CC</option>"
response.write "<option style=""background-color:#C71585;color: #C71585"" value=""#C71585"">#C71585</option>"
response.write "<option style=""background-color:#191970;color: #191970"" value=""#191970"">#191970</option>"
response.write "<option style=""background-color:#F5FFFA;color: #F5FFFA"" value=""#F5FFFA"">#F5FFFA</option>"
response.write "<option style=""background-color:#FFE4E1;color: #FFE4E1"" value=""#FFE4E1"">#FFE4E1</option>"
response.write "<option style=""background-color:#FFE4B5;color: #FFE4B5"" value=""#FFE4B5"">#FFE4B5</option>"
response.write "<option style=""background-color:#FFDEAD;color: #FFDEAD"" value=""#FFDEAD"">#FFDEAD</option>"
response.write "<option style=""background-color:#000080;color: #000080"" value=""#000080"">#000080</option>"
response.write "<option style=""background-color:#FDF5E6;color: #FDF5E6"" value=""#FDF5E6"">#FDF5E6</option>"
response.write "<option style=""background-color:#808000;color: #808000"" value=""#808000"">#808000</option>"
response.write "<option style=""background-color:#6B8E23;color: #6B8E23"" value=""#6B8E23"">#6B8E23</option>"
response.write "<option style=""background-color:#FFA500;color: #FFA500"" value=""#FFA500"">#FFA500</option>"
response.write "<option style=""background-color:#FF4500;color: #FF4500"" value=""#FF4500"">#FF4500</option>"
response.write "<option style=""background-color:#DA70D6;color: #DA70D6"" value=""#DA70D6"">#DA70D6</option>"
response.write "<option style=""background-color:#EEE8AA;color: #EEE8AA"" value=""#EEE8AA"">#EEE8AA</option>"
response.write "<option style=""background-color:#98FB98;color: #98FB98"" value=""#98FB98"">#98FB98</option>"
response.write "<option style=""background-color:#AFEEEE;color: #AFEEEE"" value=""#AFEEEE"">#AFEEEE</option>"
response.write "<option style=""background-color:#DB7093;color: #DB7093"" value=""#DB7093"">#DB7093</option>"
response.write "<option style=""background-color:#FFEFD5;color: #FFEFD5"" value=""#FFEFD5"">#FFEFD5</option>"
response.write "<option style=""background-color:#FFDAB9;color: #FFDAB9"" value=""#FFDAB9"">#FFDAB9</option>"
response.write "<option style=""background-color:#CD853F;color: #CD853F"" value=""#CD853F"">#CD853F</option>"
response.write "<option style=""background-color:#FFC0CB;color: #FFC0CB"" value=""#FFC0CB"">#FFC0CB</option>"
response.write "<option style=""background-color:#DDA0DD;color: #DDA0DD"" value=""#DDA0DD"">#DDA0DD</option>"
response.write "<option style=""background-color:#B0E0E6;color: #B0E0E6"" value=""#B0E0E6"">#B0E0E6</option>"
response.write "<option style=""background-color:#800080;color: #800080"" value=""#800080"">#800080</option>"
response.write "<option style=""background-color:#FF0000;color: #FF0000"" value=""#FF0000"">#FF0000</option>"
response.write "<option style=""background-color:#BC8F8F;color: #BC8F8F"" value=""#BC8F8F"">#BC8F8F</option>"
response.write "<option style=""background-color:#4169E1;color: #4169E1"" value=""#4169E1"">#4169E1</option>"
response.write "<option style=""background-color:#8B4513;color: #8B4513"" value=""#8B4513"">#8B4513</option>"
response.write "<option style=""background-color:#FA8072;color: #FA8072"" value=""#FA8072"">#FA8072</option>"
response.write "<option style=""background-color:#F4A460;color: #F4A460"" value=""#F4A460"">#F4A460</option>"
response.write "<option style=""background-color:#2E8B57;color: #2E8B57"" value=""#2E8B57"">#2E8B57</option>"
response.write "<option style=""background-color:#FFF5EE;color: #FFF5EE"" value=""#FFF5EE"">#FFF5EE</option>"
response.write "<option style=""background-color:#A0522D;color: #A0522D"" value=""#A0522D"">#A0522D</option>"
response.write "<option style=""background-color:#C0C0C0;color: #C0C0C0"" value=""#C0C0C0"">#C0C0C0</option>"
response.write "<option style=""background-color:#87CEEB;color: #87CEEB"" value=""#87CEEB"">#87CEEB</option>"
response.write "<option style=""background-color:#6A5ACD;color: #6A5ACD"" value=""#6A5ACD"">#6A5ACD</option>"
response.write "<option style=""background-color:#708090;color: #708090"" value=""#708090"">#708090</option>"
response.write "<option style=""background-color:#FFFAFA;color: #FFFAFA"" value=""#FFFAFA"">#FFFAFA</option>"
response.write "<option style=""background-color:#00FF7F;color: #00FF7F"" value=""#00FF7F"">#00FF7F</option>"
response.write "<option style=""background-color:#4682B4;color: #4682B4"" value=""#4682B4"">#4682B4</option>"
response.write "<option style=""background-color:#D2B48C;color: #D2B48C"" value=""#D2B48C"">#D2B48C</option>"
response.write "<option style=""background-color:#008080;color: #008080"" value=""#008080"">#008080</option>"
response.write "<option style=""background-color:#D8BFD8;color: #D8BFD8"" value=""#D8BFD8"">#D8BFD8</option>"
response.write "<option style=""background-color:#FF6347;color: #FF6347"" value=""#FF6347"">#FF6347</option>"
response.write "<option style=""background-color:#40E0D0;color: #40E0D0"" value=""#40E0D0"">#40E0D0</option>"
response.write "<option style=""background-color:#EE82EE;color: #EE82EE"" value=""#EE82EE"">#EE82EE</option>"
response.write "<option style=""background-color:#F5DEB3;color: #F5DEB3"" value=""#F5DEB3"">#F5DEB3</option>"
response.write "<option style=""background-color:#FFFFFF;color: #FFFFFF"" value=""#FFFFFF"" selected>#FFFFFF</option>"
response.write "<option style=""background-color:#F5F5F5;color: #F5F5F5"" value=""#F5F5F5"">#F5F5F5</option>"
response.write "<option style=""background-color:#FFFF00;color: #FFFF00"" value=""#FFFF00"">#FFFF00</option>"
response.write "<option style=""background-color:#9ACD32;color: #9ACD32"" value=""#9ACD32"">#9ACD32</option>"
response.write "</SELECT> "
response.write "<input type=checkbox name=selBold value=""1"" disabled=true onclick=""selectBold()"">粗体 <input type=checkbox name=selItalic value=""1"" disabled=true onclick=""selectItalic()"">斜体"
response.write "</td>"
response.write "</tr>"
end if
end if
response.write "<tr valign=middle height=30>"
response.write "<td class=tablebody2 valign=middle colspan=2 align=center>"
select case ListMethod
case 0
response.write "<input type=Submit value=发送 name=Submit> <input type=reset name=Clear value=清除 onclick=""document.photo_bg.src='';document.photo_bg.style.display='none';document.photo_bodyback.src='';document.photo_bodyback.style.display='none';document.photo_bodyfore.src='';document.photo_bodyfore.style.display='none';document.photo_fg.src='';document.photo_fg.style.display='none';"">"
case 1
response.write "<a href=""Visual.asp?shopid=297"">返回〖发出的请求〗列表</a>"
case 2
response.write "<input type=Submit value=确认 name=Submit title=""使用当前的形象参加这个合影""> <input type=button name=goback value=返回 onclick=""location.href='Visual.asp?shopid=397'"" title=""返回〖收到的请求〗列表"">"
case 3
if lcase(trim(MemberName))=lcase(trim(fromuser)) then
response.write "<script language=javascript>userCount="""&UserCount&""";</script>"
for i=0 to UserCount-1
response.write "<input type=hidden name=""LayerNo_"&i&""" value="""&LayerNo(i)&""">"
response.write "<input type=hidden name=""OuterLeft_"&i&""" value="""&OuterLeft(i)&""">"
response.write "<input type=hidden name=""OuterTop_"&i&""" value="""&OuterTop(i)&""">"
response.write "<input type=hidden name=""OuterWidth_"&i&""" value="""&OuterWidth(i)&""">"
response.write "<input type=hidden name=""OuterHeight_"&i&""" value="""&OuterHeight(i)&""">"
response.write "<input type=hidden name=""InnerLeft_"&i&""" value="""&InnerLeft(i)&""">"
response.write "<input type=hidden name=""InnerTop_"&i&""" value="""&InnerTop(i)&""">"
response.write "<input type=hidden name=""InnerWidth_"&i&""" value="""&InnerWidth(i)&""">"
response.write "<input type=hidden name=""InnerHeight_"&i&""" value="""&InnerHeight(i)&""">"
response.write "<input type=hidden name=""Direction_"&i&""" value="""&Direction(i)&""">"
response.write "<input type=hidden name=""NameLeft_"&i&""" value="""&NameLeft(i)&""">"
response.write "<input type=hidden name=""NameTop_"&i&""" value="""&NameTop(i)&""">"
response.write "<input type=hidden name=""NameFont_"&i&""" value="""&NameFont(i)&""">"
response.write "<input type=hidden name=""NameSize_"&i&""" value="""&NameSize(i)&""">"
if NameBold(i) then
response.write "<input type=hidden name=""NameBold_"&i&""" value=""1"">"
else
response.write "<input type=hidden name=""NameBold_"&i&""" value=""0"">"
end if
if NameItalic(i) then
response.write "<input type=hidden name=""NameItalic_"&i&""" value=""1"">"
else
response.write "<input type=hidden name=""NameItalic_"&i&""" value=""0"">"
end if
response.write "<input type=hidden name=""NameColor_"&i&""" value="""&NameColor(i)&""">"
response.write "<input type=hidden name=""NameDirection_"&i&""" value="""&NameDirection(i)&""">"
next
for i=0 to 5
response.write "<input type=hidden name=""AccoutermentUserVisual_"&i&""" value="""&UserVisualSplit(UserCount+i)&""">"
response.write "<input type=hidden name=""AccoutermentOuterLeft_"&i&""" value="""&OuterLeft(UserCount+i)&""">"
response.write "<input type=hidden name=""AccoutermentOuterTop_"&i&""" value="""&OuterTop(UserCount+i)&""">"
response.write "<input type=hidden name=""AccoutermentOuterWidth_"&i&""" value="""&OuterWidth(UserCount+i)&""">"
response.write "<input type=hidden name=""AccoutermentOuterHeight_"&i&""" value="""&OuterHeight(UserCount+i)&""">"
response.write "<input type=hidden name=""AccoutermentInnerLeft_"&i&""" value="""&InnerLeft(UserCount+i)&""">"
response.write "<input type=hidden name=""AccoutermentInnerTop_"&i&""" value="""&InnerTop(UserCount+i)&""">"
response.write "<input type=hidden name=""AccoutermentInnerWidth_"&i&""" value="""&InnerWidth(UserCount+i)&""">"
response.write "<input type=hidden name=""AccoutermentInnerHeight_"&i&""" value="""&InnerHeight(UserCount+i)&""">"
response.write "<input type=hidden name=""AccoutermentDirection_"&i&""" value="""&Direction(UserCount+i)&""">"
next
response.write "<input type=Submit value=确认 name=Submit title=""使用当前的设计作为最终的照片"" onclick='SubmitDesign()'> "
else
if not isnull(FinishDate) and not hasFinished then
response.write "<input type=Submit value=同意 name=Submit title=""同意当前照片的设计""> "
end if
end if
response.write "<input type=button name=goback value=返回 onclick=""location.href='Visual.asp?shopid=497'"" title=""返回〖确认的请求〗列表"">"
if master and usercount>1 then
response.write " <input type=checkbox name=forcephoto value=""1"">强制同意"
end if
end select
response.write "</td>"
response.write "</tr>"
response.write "</table>"
select case ListMethod
case 0
response.write "</form>"
case 2
response.write "</form>"
case 3
response.write "</form>"
end select
end sub%>